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Use a ferramenta ideal 
e faça do seu micro 
um grande companheiro 
de trabalho 
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AS-1000 





o micro que cresce com voce. 






CARACTERÍSTICAS TÉCNICAS: 


* 16 K bytes de memória iniciais 

* Expansão interna para 32 e 
48 K bytes 

* 8 K bytes de memória EPROM 

* Microprocessador Z-80A 

* Teclado de membrana com 
ação mecânica tiva 

* 40 teclas e 154 funções 

* Basic e linguagem de máquina 

* Video normal ou reverso 

* Saída para qualquer impressora 

* Manipula até quatro cassetes 
com geração de arquivo 

* Modem 


* Joystick 

e File 

* Fonte de alimentação 
embutida (110/220 volts) 

* Nível de leitura de gravação 
automático 


O Microcomputador AS$-1000 
é uma ótima escolha para quem estã 

iniciando na ciência da computação. Seus 

recursos de programação e sua concepção 

modular, porém, permitem que ele 

o acompanhe até as aplicações mais 

sofisticadas. 

O AS$-1000 já nasce com uma biblioteca de 
milhares de programas para jogos, 
administração doméstica, aplicações 
comerciais e profissionais. 

O AS$-1000 é fabricado com a qualidade 
ENGEBRAS e garantido por um ano. 

Entre na era da informática com a escolha 
certa. AS$-1000, o seu micro pessoal. 


Escreva-nos, sua correspondencia não ficara sem resposta. 


e ENGEBRAS 


ELETRÔNICA E INFORMATICA LTDA, 
Rua do Russel, 450 - 3º andar 
cep 22210 Rio de Janeiro - RJ 
Tel.: (021) 205-4898 
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De repente, você descobre que a cnise é geral. 

Crise no faturamento, porque as notas fiscais são emitidas muito 
devagar. Crise na folha de pagamento, porque as alterações 
salanais são cada vez mais frequentes. Crise no planejamento 
financeiro, estrangulado pela irregularidade da cobrança e a 
pressão do contas a pagar. 

E de crise em crise você descobre que chegou a hora de uma 
decisão inadiável: a compra de um Cobra 305, o microcomputador 
profissional 

O Cobra 305 põe sua empresa em ordem num apertar de dedos. 
Ele emite notas fiscais, controla o estoque, faz o faturamento, 
programa a cobrança e o contas a pagar, faz a folha de pagamento, 


elabora os mapas de vendas, controla a comissão dos vendedores, 





emite as guias para recolhimento de impostos e encargos sociais. 
Tudo com muita economia de custo e nenhuma chance de erro. 

Como você vê, o Cobra 305 não faz milagres. Ele apenas permite 
que você tenha informações atualizadas o tempo todo e possa 
tomar suas decisões com mais segurança. 

Se você também quer sair da crise pela porta da frente, contate a 
Cobra e assista a uma demonstração do Cobra 305, o micro 
profissional. 


sm» Cobra 30 


O micro 
profissional. 





orge? 


Em “1984”, Orwell fez muitos 
acertos no atacado e alguns erros no 
varejo. Na parte que nos toca, por 
exemplo. A informática não se 
transformou em um instrumento de 
opressão ao homem conforme Orwell 
previa no seu livro “1984, justamente 
porque o acesso a ela foi franquiado - e 
continua sendo - a um número cada 
vez maior de pessoas. Se tivesse ficado 
em poucas mãos, talvez a história fosse 
realmente outra. 

Mas hoje, um microcomputador é 
um instrumento que ajuda você a viver 
melhor, com informações e serviços 
cada vez mais rápidos e eficientes. 
Ajudando, em parte, a contradizer 
algumas das previsões de George 
Orwell, a CompuShop - a loja 
especializada em soluções que tem 
tudo em matéria de hardware, software 
e treinamento para melhor orientar o 
usuário - fica tranquila e mais a vontade 
para desejar um feliz 1984 para todo 
mundo. 


CompuShop 


Presente nos melhores anos. 


SÃO PAULO: Rua Dr. Mário Ferraz, 37 - Tel.: (011) 815-0099 
Av. Pres. Juscelino Kubitschek, 889 - Tel.: (011) 852-7700 
Telex: (011) 36611 BYTE BR 
LONDRINA: Av. Higienópolis, 465 - Tel.: (0432) 23-7110 


Até 31.03.84 você ganha gratuitamente um 
exemplar do livro “1984” de George Orwell em 
todas as compras acima de Cr$ 300.000,00. 
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micros da linha TRS-80. SB10 DATA 66 +» 65» Bó, 65 
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3 OS PEQUENOS 
NOTÁVEIS — A família 
brasileira Sinclair em destaque: 
as características técnicas, os 
periféricos, o software, 
as limitações, a visão dos 
usuários, enfim, um panorama 
geral sobre a linha. E mais: 
uma tabela com preços e 
principais especificações de 
todos os Sinclair nacionais. 


1 VIGAS CONTÍNUAS: AUTOMATIZE OS 
CÁLCULOS — Programa de Alexandre 
Domingues Campos. 


1 6 O ASSEMBLER, PASSO A PASSO — 
Programa de Gérson Bianco Alonso. 


20 ARQUIVOS PROTEGIDOS — Artigo de 
Roberto Tannenbaum. 


4 UM POCKET-PROGRAMA DE VIGAS 
CONTÍNUAS — Programa de 
Edison Waetge Junior. 


5 2 RESOLUÇÃO DE TRELIÇAS 
HIPERESTÁTICAS — Programa de Fermín 
Jimenez Murillo. 


5 O ÚLTIMO A SAIR APAGUE O MICRO 
— Artigo de Evandro Mascarenhas 
de Oliveira. 





46 INTELIGÊNCIA 
ARTIFICIAL — I — O que 
se passa na cabeça de um 
computador quando ele se vê 
desafiado a vencer a inteligência 
F humana? Neste artigo, Antônio 
Costa e Cristina Bovo mostram 
a importância da programação 
de jogos para o desenvolvimento 
da Inteligência Artificial. 
CÁLCULO DOS 


CASO 4 A: a 

; ESFORÇOS E 
ARMADURA DE LAJES — 
Um exemplo típico de aplicação 
do microcomputador na área 
de Engenharia Civil. Osvaldo 
Scorcio Pereira utilizou o 
Método da Ruptura para 
desenvolver este programa para 
os compatíveis com o TRS-80. 


L MN 


61 PROSYS — Programa de Esdras Avelino 
Leitão. 


6 PROGRAMA QUE ARQUIVA 
PROGRAMAS — Programa de Lawrence 
F. King. 


6 UM MÉTODO FÁCIL DE PROGRAMAR 
PROMS — Artigo de Celso Henrique 
Ribeiro e Felício Barbosa Monteiro. 


F; LAJES ARMADAS EM CRUZ — Programa 
de Celso de Arruda Albuquerque. 


78 CURSO DE ASSEMBLER — XIII 


9 4 CÁLCULO DA ÁREA DE GLEBAS — 
Programa de Laci Mota Alves. 
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muito estimulante quando nos 
deparamos com um produto 
bem-acabado. Entenda-se por 
isto não somente os aspectos 
externos ou mais gerais, mas sobretudo 
um conjunto de idéias e realizações — 
que vão desde a concepção à execução 
do projeto — felizes e, desde o berço, des- 
tinadas ao sucesso, posto que o consu- 
midor pode demorar a se convencer do 
fracasso de determinado item, masa con- 
sagração do bom produto é imediata. 

Na área da microinformática, pelo 
amplo acesso que seu baixo custo e boa 
performance propiciaram a um universo 
antes limitado, merece votos de louvor 
o pequeno equipamento de lógica Sin- 
clair. 

Relatar nossa experiência com os 
equipamentos da linha Sinclair é, de cer- 
to modo, contar a própria história do 
CPD da MICRO SISTEMAS. Eles foram 
os primeiros equipamentos a chegar e a 
indústria sempre nos deu um grande 
apoio nesta área. 

Apesar disto, informações técnicas e 
experiência na utilização foram por nós 
obtidas com muito trabalho e dificulda- 
de. 

Hoje contamos com as máquinas 
mais significativas deste segmento de 
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mercado, que coexistem pacificamente 
com equipamentos ditos de “linhagem 
mais nobre”. Esta discriminação, aliás, 
é uma característica bem marcante dessa 
linha de equipamentos: todo não-usuá- 
rio de micros Sinclair tende a considerar 
essas máquinas como brinquedos, o que 
é um equívoco pois, justamente ao 
contrário, esses computadores não são 
nada bons para jogos. São lentos, pos- 
suem poucos recursos de vídeo e têm 
uma organização de memória que es- 
banja o espaço da RAM. 

No entanto, esses equipamentos se- 
guiram no Brasil a mesma trilha do 
sucesso que já os elevara à categoria 'fe- 
nômeno' em outros paises. Isto porque 
possuem um preço relativamente baixo 
e seu BASIC é de uma simplicidade 
fantástica sem, contudo, perder em ter- 
mos de potência para seus parentes maio- 
res. 

Hoje, decorridos dois anos do lança- 
mento dessas máquinas no mercado na- 
cional, podemos fazer um balanço de 
como se comportam os primos tropi- 
cais do ZX 81. É esta a proposta da ma- 
téria “Pequenos Notáveis”, veiculada nes- 
ta edição. Vale a leitura. 

Mas não é só essa linha que apresen- 
ta uma dinâmica estimulante. Os equi- 
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pamentos da linha Apple, além dc se 
proliferarem -com velocidade até ques 
tionável, refletem a busca de seus fa- 
bricantes por um ponto de maturação. 
Ainda no mês passado, um dos mais des- 
tacados fabricantes da área reuniu, com 
o apoio de uma cadeia de lojas carioca, 
usuários e imprensa especializada para 
um debate sobre as carências e recla- 
mações do mercado. 

Uma boa iniciativa que nada tem de 
condescendente ou humanitária. É uma 
estratégia comercial das mais sábias, 
uma vez que somente através do ques- 
tionamento e trabalho de seus pontos fra- 
cos os fabricantes conseguirão ter suces- 
so em passar numa peneira já bastante 
congestionada, onde se engalfinham 
quinze modelos “compatíveis” com a 
referida maçã. A entrada da tradicional 
empresa CCE no mercado de fabricação 
de Apple (veja na seção Bits) demonstra 
que já cada vez mais se comprime o 
espaço para amadorismos. A triagem co- 
meçou. 
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RINGO R-470 CHEGOU À CIDADE. 
OS OUTROS MICROS QUE SE CUIDEM. 
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Ur$ 341.000,00" cá 


O microcomputador Ringo R-470 é, disparado, o melhor em sua categoria. É mais rápido na execução de programas, oferece amplas possibilidades de 
expansão e é o único micro totalmente projetado e desenvolvido no Brasil, aprovado pela SEI - Secretaria Especial de Informática. 

Um verdadeiro herói nacional. 

Você qe contar com ele para resolver problemas pessoais ou profissionais, ou simplesmente para se divertir, através de vários jogos disponíveis em 
cartuchos ou fitas. 

Aliás, cartucho é o que não falta para o Ringo. Ele é compatível com todos os programas do famoso Sinclair e possui equipamentos periféricos 
exclusivos que ampliam muito a sua capacidade. 

Compare o Ringo R-470 com os similares e comprove: nunca apareceu um micro pessoal tão profissional por estas redondezas. 


CARACTERÍSTICAS TÉCNICAS: * Resolução gráfica 64 x 4: pixels (unidade gráfica), podendo atingir uma À venda nas lojas especializadas em micros, 


* Linguagem Basic e códigos de máquina 7.80 matriz de 256 x 192 quando utilizado com cartuchos foto-vídeo-som e grandes magazines. 
* 8 KBytes ROM expandível para 16 K Bytes * Cálculos aritméticos, funções trigonométricas, logaritmicas e lógicas Não encontrando o Ringo nestes locais, ligue para 
* 16 KBytes RAM expandível para 48 K Bytes * Cartuchos "Instant Soft” (programas aplicativos em ROM - exclusivo) 217.8400 (SP) ou (011) 800.8441 e 800.8442 (Outras 


* Utilizável em qualquer TV P&B ou cores * Velocidade de gravação em fita cassete 2.400 BPS localidades do Brasil). DDD gratuito 


e Conector para Joystick jogos) EXPANSÕES: 

* Teclado tipo QWERTY com 49 teclas e 155 funções - teclas de edição * Gravador de EPROM para gravar, editar e copiar programas em cartucho RINGO [R=/417/(0) 
(movimentação de cursor e correção) com repetição automática * Interface para impressora ou máquina de escrever elétrica 

* Exclusiva tecla de inversão de vídeo * Sintetizador de sons O micro que aceita desafios. 


* Tela com 24 linhas de 32 colunas para texto * MODEM (Comunicação telefônica - 1.200 Bauds) Ritas do Brasil Ltda. - Divisão Informática 
* Preço sujeito a alteração Telex (011) 34673 Rita BR 
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Enxadrista experiente, Luciano Nilo de An- 
drade já escreveu para os jornais “Correio da 
Manhã”, “Data News” e “Ultima Hora” e pa- 
ra a revista “Fatos & Fotos”. Luciano é econo- 
mista, trabalhando no Ministério da Fazenda, 


no Rio de Janeiro. As opiniões e comentários 
de Luciano Nilo de Andrade, bem como as 
últimas novidades do Xadrez jogado por com- 





putadores, estarão sempre presentes em 
MICRO SISTEMAS. 
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Grand-Master, a maravilha do ano 


o último trimestre de 1983, sur- 
Nu nos mercados norte-america- 

no e europeu um sensacional mi- 
cro, o Grand-Master. Seu inédito dispo- 
sitivo magnético permite mover suas 
peças magneticamente! 

Adeus à maçada de arrumar as peças 
no início de cada partida! Adeus, tam- 
bém, à necessidade de mover as peças na 
vez do micro fazer a jogada (aliás, a exe- 
cução dessa tarefa manual sempre teve o 
efeito de desviar a atenção do jogador 
do desenrolar da partida). 

Munido com seus 12 níveis de força, 
o novo micro não humilhará o ego de 
seus opositores humanos. Ele é jogador 
condescendente e paciente. Deixa voltar 
as peças e ainda opina sobre qual a me- 
lhor jogada quando interrrogado. 

Acima de tudo, ele tem uma virtude 
muito importante, às vezes esquecida 
por alguns jogadores: a de não fazer ges- 
tos atabalhoados com as peças, não 
tamborilar com os dedos ou peças na 
mesa, etc., com o intuito de distrair o 
adversário. Por sua vez, é condição ne- 
cessária para jogar com ele que seus 
adversários movam as peças com cuida- 
do. Enfim, é um gent/eman que exige re- 
ciprocidade. 


ELITE A/S: CAMPEÃO MUNDIAL 


O Elite A/S, fabricado pela Fidelity 
Electronics, venceu o Ill Campeonato 
Mundial de Micros (modelos comerciali- 
zados) realizado em Budapeste, Hungria, 
no período de 13 a 19 de outubro de 
1983. Desconhece-se até agora que mar- 
cas competiram e demais informações 
pertinentes: 

Com este resultado, a Fidelity recu- 
perou a primazia perdida no ano passa- 
do para o Constelation, face aos resulta- 
dos por este obtidos no torneio aberto 
dos E.U.A. em 1982. 

Anteriormente, a Fidelity havia ga- 
nho o Champion Sensory Challenger, o | 
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Campeonato Mundial realizado em Lon- 
dres, em 1980. O ll Campeonato Mun- 
dial, a Fidelity venceu com o modelo 
Prestige em Travemunde, Alemanha, em 
1981. 

Os três primeiros colocados no tor- 
neio de Budapeste estão convidados a 
participar do campeonato mundial de 
computadores (macros) a ser realizado 
em Nova lorque, no final de outubro. 


G. Game Machine (Steinitz) x Elite A/S 
Nível 2 — 15 segs. para cada jogada 
Rio, dezembro de 1983 


1 — P4R P4BD;2 — C3BR P3R; 3- 
C3BD P4D; 4 —- PxP PxP; 5 —- P4D 
PxP; 6 — CxP C3BD; 7 — B5SCD CR-2R; 
8 — B5SC P3B; 9 — B4BR P3TD; 10 — 
B2R C3C; 11 — CxC PxC; 12 — B3R 
TICD; 13 — P3CD B5SCD; 14 — D4D (2). 
Perdem uma peça. Era necessário jogar 
14 — B2D. 14 — .. . P4B; 15 — D2D (7). 
Novo erro grave. 15 — ... P5D; 16 — 
BxPD PxB; 17 — B3B BxC; 18 — DxB 
D2R+; 19 — R2D PxD+; 20 — RxP 


D4R+; 21 — R4B B3R+; 22 — B5D eo 
Elite anunciou mate em quatro jogadas. 
22 —... DxB+;23 — R3B D4R+; 24 — 
R2D DxT++. As brancas gastaram 6 
min. e 43 segs., e as pretas 5 min. e 24 
segs. 


Elite A/S x G. Game Machine (Steinitz) 
Nível 1 — 5 segs. para cada jogada 
Rio, dezembro de 1983 


1 — P4R P4BD; 2 — C3BR C3BD; 
3 — P4D PxP; 4 — CxP P3R;5 — C3BD 
P3TD; 6 — P3CR B5C;7 — CxC BxC+; 
8 — PxB PCxcC (? ). Jogada que permite 
a incursão da dama branca com efeito 
paralisante sobre o jogo das pretas. O 
indicado era 8 —... PDxC, preparando- 
se para a fase final que lhes é favorável 
por terem melhor cadeia de peões. 9 — 
D6D! C3B; 10 — B3D B2C; 11 — TICD 
TICD; 12 - B4BRP3TR; 13 -— 
DxT DxD; 14 — BxD B1B; 15 — B6D 
P4TD. O Elite anuncia mate em três. 
17 — T8C R1D; 18 — B6T CxP; 19 — 
TxB++. 





R. Szmetan x Gheorghiu 
Bienne, 1982 


PROBLEMAS 


Corrigan x Browne 
Paris, 1980 
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PAPA PÁ 


O sorteado deste mês, que receberá 

ratuitamente uma assinatura de um ano 
de MICRO SISTEMAS, é Rogério G. 
Ferraro, de São Paulo. 


Após ter lido a carta da Polymax enviada 
por V. Sa., constatei que o mesmo ajuste re- 
ferenciado na carta me havia sido informado 
pela Polymax por telefone em consulta efe- 
tuada tempos atrás. 

Após a abertura da parte superior do 
Maxxi, notei o seguinte: 

1. Estava conectado apenas um terminal do 
resistor de 1 K na placa principal e o outro 
ligado a um fio que vai para a parte de baixo 
da placa principal. Obs.: liguei os dois termi- 
nais do resistor na placa. 

2. O capacitor variável, referenciado no 
item 7 da carta, encontrava-se um pouco da- 
nificado. Efetuei ajustes mas não saiu cor. 
Troquei este capacitor por um novo e 
efetuei novamente ajustes, onde verifiquei o 
aparecimento das cores: verde, azul e suas 
derivadas no sistema Pal-M, e verde, azul, 
vermelha e suas derivadas no sistema NTSC. 
Concluf que o problema residia no defeito 
do capacitor e na ligação do resistor. 

Convém ressaltar que quando adquiri o 
microcomputador e observei o problema, eu 
o devolvi para a loja, que ficou com ele cer- 
ca de uma semana “tentando repará-lo”. 
Creio que a loja, na tentativa de sanar o pro- 
blema, tenha danificado o capacitor e não 
tenha ligado o resistor de 1 K conforme de- 
veria, ou então o capacitor tenha se danifi- 
cado no transporte. 

A troca do capacitor, conforme citei, foi 
feita após o recebimento de sua carta. Havia 
notado um pequeno dano no capacitor após 
receber o micro da loja, porém não o tro- 
quei antes porque pensei que isto não iria 
alterar suas características. 

Considerando o problema ocorrido, creio 
que seria interessante a Polymax ter nesta ci- 
dade um representante com capacitação téc- 
nica para resolver este tipo de problema, 
pois há, aqui em Campo Grande, outras 
pessoas que possuem este tipo de microcom- 
putador. 

Nabor dos Santos 
Campo Grande — MS 





Agradecemos por nos ter notificado so- 
bre o andamento do seu problema, e fica- 
mos contentes em saber que pudemos ajudar 
a resolvê-lo. Vamos torcer para que a Poly- 
max atenda seu pedido e coloque represen- 
tação técnica em sua cidade. 


Quando se interrompe e se reinicia a 
execução do programa SICOM da Micro- 
Soft, perdem-se dois bytes da memória livre. 
Por que e como isso acontece? É interessan- 
te a interrupção com o objetivo de modifi- 
car o lay-out dos menus para adaptá-los a 
aplicações específicas, e também para corri- 
gir um erro elementar desse programa que, 
sob todos os outros aspectos, é excelente. 

O menu secundário apresentado após o 
comando “0” do menu principal (insira) so- 


licita os dados na seguinte ordem: N-A-|-T 
(“nome”, “endereço”, “códigos úteis” e 
“outro texto”). No entanto, os menus se- 
cundários apresentados após os comandos 
'1º (altere) e '3º (busque) solicitam os da- 
dos na ordem N-A-T-l e, o que é pior, cor- 
respondendo a “nome”, “endereço”, “tex- 
to” e “interesse”. É um erro de facílima cor- 
reção mas, se não for corrigido, torna o pro- 
grama “torto” e menos agradável de utilizar. 
Carlos Malferrari 

São Paulo — SP 

Remetemos as suas indagações para a 
Multisoft, ex-MicroSoft, e esta nos respon- 
deu o seguinte: 

“Com referência à carta de vosso leitor, 
temos a informar que o problema apresenta- 
do refere-se à característica de operação do 
BASIC do computador. A diferença de dois 
bytes deve-se à forma como foi interrompi- 
do e reiniciado o programa. Quando, no 
SICOM, é apresentado o menu, o programa 
está em uma sub-rotina, o que acrescenta 
dois bytes ao stack; se a tecla BREAK for 
pressionada e o retorno à operação for feito 
por GOTO, a memória permanece acrescida. 
Uma solução para recuperar estes dois bytes 
é retornar à execução através da instrução 
RETURN, entrando '9'' em seguida para 
obter novamente o menu.” 

Paulo Rodrigues Lauand 
Diretor da MultiSoft 





Com relação à matéria publicada em MS 
nº 27 (dezembro de 83), intitulada “Lojas 
de microcomputadores””, temos a esclarecer 
que a loja Microshop — Comércio de Apare- 
lhos Eletrônicos Ltda., estabelecida em Mi- 
nas Gerais, não tem nenhum vínculo com a 
Microshop Microcomputadores Ltda., nossa 
empresa situada em São Paulo. 

Max Ribeiro — Microshop Microcomputado- 
res Ltda. 


Gostaria de esclarecer alguns pontos a 
a respeito do meu artigo “Eletrônica na HP- 
41C” (publicado em MS nº 22) ao leitor 
Neison M. da Silva, que muito prestativa- 
mente sugeriu modificações no programa, na 


Seção Cartas de MS nº 25. Gostaria de in-- 


formar ao amigo leitor que as modificações 
por ele sugeridas coincidentemente fizeram 
parte do programa quando de sua concep- 
ção, cabendo então a mim esclarecer por 
que achei melhor modificá-lo tendo em vista 
sua divulgação. 

O fato é que os registradores 00 a 04 têm 
que ser zerados entre uma operação e outra, 
senão a máquina pode fazer uso, numa atual 
operação, de um dado da conta anterior. As 
modificações sugeridas ficam assim invalida- 
das, por duas razões: a primeira é que dei- 
xam de cumprir a sua função precípua, pois 
estão localizadas em um ponto onde serão 
executadas uma única vez, e não antes de ca- 
da operação, e a segunda é que elas utilizam 
dois registradores a mais de memória em re- 
lação à sugestão do artigo, que é a de usu- 
fruir a praticidade da função ASSIGN da 
máquina. 

Reconheço que talvez este item específi- 
co tenha sido um tanto “imposto” no artigo 
sem maiores explicações, e me coloco à dis- 
posição do amigo leitor para eventuais escla- 
recimentos, não deixando, ainda, de agrade- 
cer a sua elogiosa intervenção. 

Pedro Ricardo Drummond 
São Paulo-SP 


MS AGRADECE 


Quero parabenizá-los pelo excelente ní- 
vel da revista MICRO SISTEMAS, que 
muito me tem auxiliado, principalmente em 
minhas atividades estudantis. A cada núme- 
ro da revista fico mais surpreso com a quan- 
tidade de informações que consigo reter dos 
preciosos artigos publicados. 

Leio a revista de ponta a ponta, e as 
Seções que mais aprecio são: Dicas, Sidra, 
matérias técnicas, programas em geral e MS 
Responde. Com tudo isso, estou aprendendo 
e aproveitando ao máximo. 

Marcos Teixeira 
Americana — SP 


Muito me agradou ver MS publicar o 
artigo “O micro entre os astros do zodíaco”, 
de autoria de Luiz Roberto Barboza de Oli- 
veira. Como é citado no artigo, a Astrologia 
vem ganhando cada vez mais espaço em nos- 
sa vida diária (. . .), não a Astrologia folclóri- 
ca baseada no signo solar, mas sim a cientf- 
fica, que utiliza cálculos exatos a partir do 
horário e local de nascimento. 

(...) Com rapidez de cálculo, ótima pre- 
cisão e confiabilidade o computador vem, 
cada vez mais, entrando no cotidiano do as- 
trólogo. Parabéns, MS. 

Alexandre Fúcher 
São Paulo — SP 


Gostaria que me dessem informações 
mais completas sobre o programa “Cálculo 
de vigas contínuas para a HP-41 CV”, publi- 
cado em MS nº 20, do autor Claudio Luiz 
Curotto. 

Luiz Alberto Silva 
Niterói — RJ 

Remetemos sua carta para o autor do 
artigo, publicado na Seção Conversão de MS 
nº 20 (aliás, o professor Cláudio Curotto 
também é o autor do artigo que originou a 
conversão e que saiu em MS nº 14 com o 
título “Cálculo de vigas contínuas na Ti- 
59"). Ele nos respondeu o seguinte: 


“Recebi algumas cartas sobre estes arti- 
gos (para a TI-59 e para a HP-41CV) e vou 
tentar responder a todas: 


Com relação ao programa para a TI-59, 
esse programa vem sendo usado desde 1979 
sem apresentar nenhum problema. O artigo 
e a listagem publicados em MS estão corre- 
tos. Assim, qualquer problema que esteja 
ocorrendo deve-se a erros de impostação do 
programa ou & problemas com calculadora. 
O erro mais comum é a troca da tecla : 
(código 55) pela tecla + (código 85). Esse er- 
ro pode ser evitado conferindo-se o progra- 
ma pelo código das teclas. 

Quanto ao programa publicado em MS 
nº 20 para a HP-41CV, também vem sendo 
usado há quase dois anos sem apresentar 
nenhum problema. O artigo e a listagem pu- 
blicados em MS estão corretos, a não ser por 
um erro insignificante de impressão. Esse erro 
está na lista dos resultados: em vez de 
Qe 4,526 como saiu impresso, o resultado 
correto é Qe 4,528. Imagino que esse erro 
não tenha suscitado dúvidas a quem o cons- 
tatou. 

Acredito que dois fatos devem estar 
criando problemas a quem vem tentando 
utilizar o programa: o primeiro é relativo à 
notação utilizada por mim na representação 
de cadeias de caracteres “ALPHA”, e o se- 
gundo refere-se às funções que não apare- 
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cem no teclado e que são usadas pelo pro- 


grama. 

Na listagem do programa, uma cadeia de 
caracteres aparece entre apóstrofos, mas no 
visor da HP-41CV a mesma aparece precedi- 
da pelo símbolo T . Essa notação foi utili- 
zada para representar os espaços em branco 
existentes no fim de algumas cadeias de 
caracteres utilizadas no programa. Por exem- 
plo, a linha 253 do programa aparece na lis- 
tagem como: 

253 'Me' 
Essa linha é impostada pelo pressionamento 
das seguintes teclas: 


farra] [a] [mer] [E] (xe 


No visor então aparecerá: 
2537 Me 


As funções que não aparecem no teclado 
da HP são muitas e para que o usuário im- 
poste essas funções num programa, ou as 
utilize diretamente, ele deve seguir as instru- 
ções contidas no manual da calculadora. Ve- 
jamos as linhas 67 e 155 da listagem do pro- 
grama para mais um exemplo: 
67 x7 0? 
155 x <> 05 
Para impostar estas linhas, o usuário deverá 
pressionar as seguintes sequências de teclas: 


linha 67:[xEQ] [ALPHA] [x] 
[n) [smieT] 2) 
linha 155: [XEQ] [ALPHA] [X] [SHIFT 
(1) [smier] [4] [aLeHa] To) [5] 


Acredito que com estas instruções todos 
poderão resolver seus problemas. E coloco- 
me à disposição para eventuais consultas." 
Prof. Cláudio Luiz Curotto 
Viçosa — MG 





Adquiri um JR da Sysdata, com 48 
Kbytes, e gostaria de saber como proceder 
para ter certeza de que o mesmo possui 
Extended BASIC, pois todas as vezes que 
tentei rodar um dos exemplos das folhas. E-1 
e E-15 do manual, o micro indicou erro no 
cod. L3. 

Eu comprei o aparelho como tendo a re- 
ferida expansão. Será que estou cometendo 
algum erro? Outra coisa que gostaria de sa- 
ber é sobre a possibilidade, segundo o ma- 
nual, do desligamento de todo o conjunto 
de memória ROM mediante comando exter- 
no, permitindo, desta forma, o uso de cartu- 
chos externos com programas residentes em 
ROM (EPROM), com o Atari e outros. 
Como é possível isto e aonde obter informa- 
ções? Aliás, telegrafei para a Sysdata e a fá- 
brica ainda não me respondeu. Considero 
isto um desrespeito ao usuário. (.. .). 

Paulo Fernando Vieira 
Guaíba — RS 


Remetemos a sua carta para a Sysdata, 
mas infelizmente foi parar no antigo endere- 
ço da empresa (a Sysdata agora está na Av. 
Pacaembu, 788, São Paulo). Além disto, 
Paulo, o telegrama que você mandou para a 
Sysdata, segundo a empresa, não continha 
seu endereço, estando assim explicada a de- 
mora em você receber sua resposta, que 
agora publicamos: 

“Para verificar se o aparelho contém a 
versão Extended BASIC, basta, ao ,ligá-lo, 


E ca gi POE 


3 TI GR 
a ME a - TA E 
' + Spas cs 
nao b dg aa Ta Es a ' ac 
sr q ro: b + 


add po PRE: 


a 
1 Pro ds » + a 


A ed sra cos De e 
E St, ET a do DOME q 


teclar “ENTER” como resposta à mensagem 
que surge na tela: SYSDATA —?. Se apare- 
cer no vídeo a mensagem “JR EXTENDED 
BASIC, READY, > ”, então o aparelho está 
dotado dessa facilidade. Caso contrário, se 
aparecer somente “READY E > ”, não hão 
Extended BASIC. 

Pode-se, também, tentar utilizar uma das 
“funções do Extended, que o computador 
não aceitará se não estiver equipado com 
essa linguagem. Verifique, alternativamente, 
o número de série na embalagem ou sob o 
gabinete, pois os modelos com o Extended 
têm a letra “E” no código. Ainda sobre o 
Extended BASIC, se a versão for 2.1 (nesse 
caso, na do vídeo aparecerá “JR 
EXTENDED BASIC V 2.1"), há uma altera- 
ção para o comando de desligamento da lin- 
guagem referido nas páginas A-5, E-O e E-2 
do manual, pois, ao invés do comando CMD 
“Br, “OFF”, (versões anteriores), foi adota- 
da a forma simplificada CMD “OFF” (e para 
ligar é CMD “ON"'). 

Quanto ao desligamento do conjunto de 
memória ROM referido no manual, já existe 
implementação no hardware, mas a empresa 
ainda não está comercializando a interface 
para receber os referidos cartuchos. (.. .).” 
Luiz Clayton Pellini 
Depto. de Apoio ao Usuário da Sysdata 


Peço que haja maior esforço no sentido 
de minimizar cada vez mais a utilização de 
linguagem técnica (...). E como isso pode ser 
feito? Através de exemplos comparativos, 
analogias, generalidades etc. 

Alberto Eduardo A. Gonçalves 
Rio de Janeiro-RJ 


Gostaríamos de parabanizá-los pela edição 
de novembro de MICRO SISTEMAS, onde 
tivemos um artigo bem útil sobre orientação 
de antenas. Aproveitamos a oportunidade 
para sugerir a publicação de algo sobre pro- 
gramação para cálculos das órbitas dos saté- 
lites para uso de radioamadores. 

João Henrique de Mattos (PY4BHB) 
Varginha — MG 


(. . .JTenho duas sugestões: queria que 
vocês acrescentassem mais jogos para o 
TK82-C e, assim como há em MICRO SIS- 
TEMAS cursos de programação, seria inte- 
ressante se houvesse curso na área de hard- 
ware. 

Rogério G. Ferraro 
São Paulo-SP 


Gostaria de sugerir algumas matérias para 
serem eventualmente publicadas: 
— Meios de acesso às linguagens de máquina 
dos microcomputadores profissionais (Cobra 
305, Sisco etc.); 
— O Z-80 também poderia ser desvendado; 
— Sobre banco de dados, o futuro da Infor- 
mática; 
— Fluxogramas dos programas publicados, 
pois assim poderíamos adaptá-los a outras 
linguagens facilmente; 
— O sistema MUMPS. 
JIMO 
Serra Negra-SP 


Gostaria que a revista abordasse um pou- 
co mais o hardware para os micros pessoais. 
Eduardo Freitas 
São Paulo-SP 





Envie suas sugestões para 

MICRO SISTEMAS. Elas serão anotadas em 
nossa pauta e procuraremos, na medida 
do possível, viabilizá-las. 


POR 
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De indigesto almoço, os cálculos de vigas contínuas passam a leve café da manhã 
com este programa para a linha TRS-80. Use-o e implemente-o à vontade 





Vigas continuas: 
automatize os cálculos 


iga contínua é o prato diário 
do projetista, prato este difí- 
cil de ser digerido até cerca de 


dez anos atrás, quando come- 
çaram a surgir as minicalculadoras pro- 
gramáveis e logo depois os microcompu- 
tadores. A partir daí, todo um maçante 
trabalho manual de aplicação dos méto- 
dos hiperestáticos, normalmente o de 
CROSS, utilizados para determinar al- 
guns parâmetros para dimensionamento, 
tornou-se automático. 

Este artigo tenta atingir dois objeti- 
vos básicos: o primeiro é dotar qualquer 
escritório de cálculo estrutural que ad- 
quira um microcomputador de um pro- 
grama que possibilite calcular vigas con- 
tínuas; o segundo, bem mais amplo, é 
deixar para os colegas engenheiros que 
se disponham a desenvolver programas 
próprios uma rotina para cálculo dos 
elementos estruturais a que este artigo 
se refere. 

Se o colega deseja um programa de 
maior alcance, para o cálculo e dimen- 
sionamento de um pavimento tipo in- 
teiro, por exemplo, não precisa preo- 
cupar-se ou ocupar seu tempo desen- 
volvendo a rotina de cálculo estático das 
vigas, pois esta pode ser simplesmente 
copiada da listagem aqui apresentada. 
Justamente por isso, fazemos referência 
à estrutura interna de armazenamento 
do programa mais adiante. 


12 


Alexandre Domingues Campos 











O PROGRAMA 


Desenvolvido em BASIC para os 
equipamentos compatíveis com o TRS- 
80, com pequenas alterações o progra- 
ma poderá também rodar nos demais. 
O método de resolução empregado é o 
das Matrizes de transferência (ver refe- 
rência bibliográfica). 

O programa é auto-explicativo. Pe- 
dem-se, na tela, os momentos de balan- 
ços à esquerda e à direita e, para cada 
vão, seu comprimento, número de tre- 
chos, carga e comprimento de cada tre- 
cho. Nos exemplos de aplicação, podere- 
mos ver quão fácil é introduzir os dados. 

Como resultado, obtêm-se todos os 
parâmetros necessários ao dimensiona- 


mento de vigas contínuas. Aparecem na 
tela, vão após vão, os seguintes dados: 
a) momento negativo no apoio à esquer- 
da do vão; 

b) esforço cortante à esquerda; 

c) primeiro ponto de momento nulo; 
d) segundo ponto de momento nulo; 
e) esforço cortante à direita; 

f) ponto de momento máximo positivo; 
g) valor do momento máximo positivo. 








ARMAZENAMENTO DOS DADOS 


Cada vão é dividido em trechos, de- 
pendendo de seu número de cargas con- 
centradas. A figura 1 explica tal divisão. 

Os dados são armazenados sequen- 
cialmente em um vetor chamado vetor 





Figura 1 — Trechos de uma viga contínua 
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de trabalho, designado por À no pro- 
grama. Nestes são colocados, vão após 
vão, os valores correspondentes a cada 
um deles, e para cada trecho armaze- 
na-se : 

e P; — carga concentrada no início do 
trecho; 

e qi — carga distribuída no trecho; 
e aj — comprimento do trecho. 

Se o vão não tem cargas concentra- 
das, armazena-se apenas sua carga dis- 
tribuída e o programa assume como 
comprimento do trecho o próprio vão. 
Sendo assim, o vetor de trabalho para a 
viga da figura 1 será o que nos mostra a 
figura 2. 

O programa opera com tais dados até 
a obtenção dos parâmetros de saída. Fa- 
ça seu programa montar automatica- 
mente o vetor de trabalho, seguindo a 
ordenação aqui apresentada, e pode usá- 
lo como sub-rotina. 

Se quiser utilizar os valores-dos mo- 
mentos e esforços cortantes então cal- 
culados (para dimensionar, por exemplo) 
antes da impressão de cada um, copie-os 
em outra variável e transfira a execução 
para o local em que serão operados. E 
bom proveito... 





SUGESTÕES PARA 
IMPLEMENTAÇÃO 


Os colegas interessados podem auto- 
matizar ainda mais seus projetos com 
implementações bastante úteis, aumen- 
tando muito a eficiência de seus escritó- 
rios, como por exemplo: 


a) Programa integrado para cálculo de 
um pavimento completo — usa-se para 
resolução das vigas a rotina apresentada 
neste artigo, eliminando-se a entrada de 
dados e montando-se o vetor A a partir 
das entradas do primeiro; 


b) Cálculo estático e dimensionamento 
de vigas contínuas — a parte de dimen- 
sionamento pode ser facilmente intro- 
duzida com a utilização dos resultados 
deste programa, como sugerido no últi- 
mo parágrafo do item anterior. Opera-se 
com os esforços chegando-se às dimen- 
sões e seção de ferro necessárias para ca- 
da um deles, levando-se em conta as re- 
comendações de nossa norma brasileira 
para projetos de estrutura de concreto 
armado — a NB-1; 


c) Alterar a entrada de dados de forma 
a fornecê-los para várias vigas ao mesmo 
tempo. Esta alteração é rápida e fácil. 

Pode-se pensar em vários outros 
acréscimos, dependendo da necessidade 
de cada um, e ninguém melhor do que 
os próprios colegas para decidir a este 
respeito. Vale ressaltar, no entanto, que 


MICRO SISTEMAS, fevereiro/84 


Comprimento do vao | 


Nº de trechos no vao | = 2 


Carga concentrada no início do 1º trecho = O 


Comprimento do trecho 1 


Carga distribuida no 1º trecho f O 


IDEM PARA O TRECHO 2 


Comprimento do vao 2 


Nº de trechos do vao 


Carga distribuida no 


Comprimento do vao 3 


Nº de trechos do vao 3 = 3 


Carga concentrada no 


início do trecho 1 = 0 


Comprimento do trecho 1 


Carga distribuida no trecho 1 


IDEM PARA OS TRECHOS 2 E 3 


Figura 2 - Estrutura do vetor de trabalho 





Figura 3 — Viga-exemplo 


as unidades dos dados devem ser compa- 
tíveis e nestas sairão os resultados. 


O programa ocupa 3.864 bytes de 
memória, sem o dimensionamento das 
variáveis. Para ter sua capacidade au- 
mentada, basta que se altere o dimensio- 
namento, instrução DIM no início do 
programa, do vetor A. Este acréscimo fi- 
cará restrito à quantidade de memória 
disponível de seu microcomputador. 


Embora possam variar de um trecho 
para outro, as cargas distribuídas devem 
ser uniformes em cada um deles. Se for 
necessário variar alguma, defina novo 





dir 


M = 2420 Kg.m 
Balanço 


trecho, com carga concentrada inicial 
igual a zero. 


EXEMPLO DE UTILIZAÇÃO 


Se você deseja este programa tal co- 
mo está, segue um exemplo aplicativo 
a partir do cálculo da viga que está na fi- 
gura 3. À esquerda, temos o que se apre- 
senta na tela, e à direita os dados intro- 


duzidos: o 
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VIGAS CONTÍNUAS: AUTOMATIZE OS CÁLCULOS 





IDENTIFICAÇÃO DA VIGA 


Nº DE VÃOS 
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QUER CALCULAR OUTRA VIGA? 0 
READY 
» A 


Cabem algumas observações, enume- 
radas a seguir: 
e Na Tela 1, a identificação da viga po- 
de ser uma string de até SO caracteres. 
e Nas Telas 2 e 3 nota-se que, se o vão 
tem mais de um trecho, o programa pe- 
dirá, na ordem, P, a e q para cada um 
deles. O P do primeiro trecho deve ser 
introduzido como sendo igual a zero. 
Se o vão tem apenas um trecho, o pro- 
grama pede apenas sua carga distribuída, 
evitando introdução de dados desneces- 
sários. 
e Na Tela 4, se a pergunta ENGASTES 
for respondida com 1, o programa pedi- 
rá CCE? (condições de contorno à es- 
querda) e CCD? (condições de contorno 
à direita), que serão O para apoio sim- 
ples e 1 para engaste. A viga será então 
resolvida para estas condições de contor- 


o CLS 
8 DEFDBL D-H,L-V 


no e não com o esquema normal de 
apoios simples nas extremidades. 

e Quando da saída de resultados, o mi- 
crocomputador os apresenta por vão. 
Para que novo vão seja apresentado na 
tela, pressione qualquer tecla. 

x Na Tela 7, se à pergunta QUER CAL- 
CULAR OUTRA VIGA? responde-se 1, 
o computador retorna à Tela 1; respon- 
dendo-se O, encerra-se o programa. 
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10 INPUT“IDENTIFICA.AO DA VIGA”; IDS: INPUT “N. DE VACSZ;N 
20 DIM PCN+1),TC(3,3),U(3,3),V(3,3),A(100),F(10),X(4),2(3),R(3),S(3) 


30 B=1: P(áí) =1 
40 FOR A = 41 TON 


390 CLSSPRINT IDSIPRINT “COMPRIMENTO DO VÃO “; A INPUT A(B):D=B+1 


INPUT “TRECHOS NO VAO “; A(B) 


FOR C= 1 TCD 
IF D = 4 THEN GOTO 100 
INPUT “P “; A(B) E B=B+ 
INPUT “q” ; A(B) 2: B=B 
MENTE - 

IF F(1) = 4 GOTO 040 
P(A+L)=B 

NEXT A 

CLS:PRINTIDS: INPUT “MBE “; X 
"sZ| 


í 
+ 


D = A(B) & 


“ 
r 


INPUT “MBD “=. Y ZINPUT “ENGASTES 


nn 3 THEN GOTO 165 ELSE GOTO 41470 


INPUT “CCE ;O * INPUT “CCD 


“a 


; P 


FOR I = 1 TO 3 2 FOR J=1T03%2UC I,J)=0 8 NEXTJ, 1 


U(c1,1)=1 : U(C2,2)=1 : U(3,3)= 1 


FOR. = 41 TON 


T(14,1) = -2 2T(2,2) = -2 2T(3,9)= 12 T(3,1)=08 T(3,2)= 0 

B = PCA): F=A(B+ 4) TC2,1) = 6/A(B) 3T(4,2) =A(B)/2: B =B+2 
IF F= 4 THEN GOTO 230 ELSE GOTO 240 
T(L,3)=A(B-2)534A(B)/24:T(2,3)=-AÇB-2)624A(B)/42:G0T0350 


T(1,3)=0:T(2,3)=0:H=0:1=0 
FOR C=B TO B+34F- 4 STEP 3 
L=A(C-2-I) 


K=((L-H)54-(L-H-A(C+1))04)/24 


G=A(C)w(L-H)62/2%(1-(L-H)/L) 


T(14,3)=T(1,3)+6+(((L-H)63-(CL-H-A(C+1))53)/6-38K/L)nNACC+2) 


G=ACC)NCL-H)XC(L-H)02/L02-1) 
J=-(2HL-2HH-A(C+Í))MACC+HÍ)/2 


T(2,3) = T(2,3)+0+( J+6NK/LOD) XACC+2) 


H=H+A(C+1)21=1+3 
NEXT € 
IF F(3)J=1 THEN GOTO 590 


FOR I=1í TO 3:FOR J=1 TO 32:VCI, J)=0:NEXT J,I 
FOR I=í TO 3:FOR 'K=1 TO 3:5FOR J=í TO 3 


VCL,KI=VCI,KO)+TCI, JD) XUCI,K) 
NEXT J.K.I 
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4UL 










“490 






3910 


320 











635 







660 
6706 
700 
740 
720 
730 
740 
750 
7640 
770 
780 
790 
800 
Bio 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
7220 
9730 
940 
250 
9260 
970 
980 
990 
1000 
idio 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
41100 
1110 
1120 
1130 

































1140 
1145 








1150 
1160 
1470 
1100 
1190 
1200 
1210 
1220 

















FOR 1=1 
NEXT À 
R(3)=1 
IF 0=0 AND P=O THEN 5140 

IF' O=P THEN. GOTO 460 ELSE GOTO 470 
M=-UC1,3)/U(1,2)5R(C1)=05R(2)=MEMF=UC2,2)4M+UC2,3):G0TO 520 
IF 0=0 THEM GOTO 480 ELSE GOTO 490 


TO 3:FOR J=í TO 3:5U(CI, J)=VCI, J):NEXT J,I 


R=-(UCL,2)%X+HUCL,3))/UCL, LISRCÍDSRERCD)=XEMP=UCZ, L)MRAUCD, 2) XL 


(2,3):G0TO 20 

IF P=0 THEN GOTO 500 ELSE GOTO 510, 
M=(Y-U(2,3))/0(2,2)2R(1)=05R(2)=M:GOTO 520 
R=(Y-U(2,2)4X-UC2,3))/0(2, 5) ERCL)SRER(D)=X 
F(9)=s 

FOR A=1 TO N 

CLS:PRINTIDS:PRINTE:PRINT“VAO NUMERO”; A 
PRINT“MOM. NEGATIVO = “,CINT(R(2)) 

FOR I=1 TO 3 : S(1)=0 : NEXT I 

GOSUB 700 


GOTO 200 


FOR I=1í TO 3 *: FOR J=1 TO 3 
S4I)=T(I, J)XR(J)+SLT) 


NEXT J,1 
FOR I=í TO 3 3: R(I) = SCI) 2: NEXT I 

NEXT A 

PRINTEPRINTE:PRINTOMOM. FINAL = “,,CINTCMF) 


AS=INKEYS:IF AS="" THEN 636 

Y=0 E X=0 * P=O0 : 0=0 : MF=0 
CLS:PRINT“QUER CALCULAR OUTRA VIGA ”; : 
IF G=í : CLEAR : GOTO 05 

END 

B=P(A) 2: F=A(B+1) 2: Q=0 : H=0 : 1=0 
Q=6%R(1)/(A(B))62 : IF E=í THEN Q=QxI(A) 


INPUT G 


Q=-INR(Z)/A(B)+A 3: B=B+2 


IF F=1 : Q=A(B)XA(B-2)/4+0 : GOTO 780 
FOR C=B TO B+3xF-í STEP 3 2: L=A(C-2-1) ' 
GSCACCINCL-HIDI)/LOI+ACC+2)/(48LBI)RCCL-HIBA-(L-H-A(C+1))54)+0 


H=A(C+1) + HE I=1+3 
NEXT C 

PRINT“QGE = ”,, CINT(Q) 
B=P(A)+2 


Z(2)=0 é Z(3)=R(Z) 2 M=R(2) 

IF F=í THEN Z(1)=-A(B)/2 : H=0 : I%4 : C=B-3 : GOTO 930 
A(B-1)=0 3: H=0 : I=í : K=-4 
FOR C=B TO B+3xF-í STEP 3 
Z(1)=-A(C+2)/2 E Z(2)= 0 +A(C+2)4H 

Z(3)=M-(A(C+2)4H52/2) 
S=0 : IF C=B THEN 920 
FOR J=K TO O STEP -í 
S=A(C-34xJ-2) + S 
Z(3) = ACC-IRI-LDRAÇC-IRI-D)IKCS-A(O-IRI-2)/2)+4A(C-IRJ)RS+Z(3) 
Z(2) = cACC-IRI-DIRACC-IRI-LI-AÇC-IRI)+Z(D) 
NEXT J 
K=Kk+1 
D=2(2)52-4nZ(1)n7(3) 

IF D<XO THEN GOTO 1060 
S=(-Z(2)+5SQR(D))/(2xZ(1)) 

IF .S)=H AND S<=H+A(C+H1) 3 F(4)=4 
T=(-Z(2)-SOR(D))/(2xZ(1)) 

IF T>=H AND T<=H+A(C+1) 3 F(S)=1 

IF F(4)=4 THEN X(I)=S 2 F(4)=0 2 F(I)=1 : 
IF F(5)=1 THEN X(I)=T 3: F(5)=0 3 F(I)=1 : 
XK=-Z(2)/(2xZ72(1)) 

IF X<H OR X)H+A(CC+HL) 2 GOTO 41050 

X(3)=X 

X(4)=7(1)4X02+72(2)4X+Z2(3) 

IF F=í THEN 1400 

H=H+A(C+1) 3 X=H 

B=72(1)4X52+72(2)4X+7(3) 

IF G)X(4) THEN X(4)=6 2 X(3)=X 

NEXT C 

IF F(1)=1 AND F(2)=1 THEN 14140 

IF F(í)=1 THEN 4130 

PRINT“NAO HA PONTO DE MOM. NULO” : GOTO 1160 


I=1+1 
I=1+1 


X1=X(1)4100 : X(1)=CINT(X4)/400º 2: PRINTOPT, MOM. NULO 4 = o R A 


D =: GOTO 11460 , 
IF X(4))X(2) THEN G=X(1) 2 X(1)=X(2) 2: X(2)=6 


X1=1008X(1) 3 X2=1008X(2) 2: X(1)=CINT(X4)/400 2: X(2)=CINT(X2)/3 


00 
PRINT“PT. MOM. NULO 1 = “,X(14) 
G=P(A) E Q=24Z2(1)4A(G)+Z(2) 2: PRINT “QD = “,» CINT(Q) 
G=P(AJ+LFA(ÇG)=F 

F(í4)=0 : F(2)=0 

X3=X(3)4100 E X(3)=CINT(X3)/4100 2 PRINTOx = “,X(3) 
PRINTOM+ =“, CINT(X(4)) 

X(4)=0 E: X(3)=0 2: X(2)=0 2: X(14)=u 

AS=INKEYS 2 IF A$="" THEN GOTO 1220 

RETURN 
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: PRINT“PT. MOM. NULO 2 = “,x(2) 
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Em auxílio de quem trabalha com Assembler nos micros da linha Sinclair, 
um programa que revela o que se passa com o processador a cada instrução dada 








O Assembler, 
passo a passo 





Gérson Bianco Alonso 





cho que todos concordam que programar em Assem- 

bler muitas vezes é absolutamente necessário. Progra- 

mas de uso geral têm no BASIC a linguagem do coti- 

diano, mas quando a velocidade, a economia de me- 

mória e a eficiência passam a ter um peso muito alto, 
o Assembler é a única alternativa. 

O acesso ao Assembler é feito através da função USR e sua 
montagem na memória do micro é efetuada com PEEK e 
POKE, usando endereços e códigos em decimal. Os recursos 
disponíveis no micro são poucos, daí a existência de uma série 
de programas auxiliares que se incumbem de converter os códi- 
gos, montá-los e executá-los, como é o caso do Monitor Assem- 
bler, publicado em MICRO SISTEMAS número 23. 

Programar em Assembler é ligeiramente diferente da progra- 
mação em BASIC, uma vez que a pessoa se vê obrigada a convi- 
ver com bits, flags, memórias, registros e uma série de outros 
termos que, principalmente para O iniciante, têm um efeito 
aterrorizador. Existem equipamentos sofisticados e- onerosos — 
se comparados com os nossos microcomputadores — que auxi- 
liam a desenvolver esta fase do processo, mas que não são viá- 
veis a nível pessoal. 


PROGRAMA AUXILIAR 


O programa que aqui trazemos foi desenvolvido para os mi- 
cros com lógica Sinclair e se presta, respeitando-se as limita- 
ções dos equipamentos desta linha, a auxiliar O iniciante no de- 
senvolvimento de seus programas Assembler, embora possa ser 
bastante útil mesmo para o programador mais experimentado. 
É composto de uma listagem em BASIC e outra em Assembler. 

Você saberia dizer, por exemplo, o que contêm o acumula- 
dor e os flags após efetuada uma instrução? Pois muito bem. 
Com este programa será possível observar, instrução por instru- 
ção, o que acontece com cada um dos registradores, o estado 
de cada flag, o conteúdo do acumulador em hexadecimal e na 
sua forma binária. 

Está prevista a possibilidade de se executarem instruções de 
até 4 bytes (máximo no Z80); entretanto, podem-se utilizar 
quatro instruções de 1 byte ou qualquer outra combinação que 
totalize, no máximo, os 4 bytes. 

A parte em BASIC, até a instrução 40, monta os títulos. 
Daí até a instrução 120, transfere para a rotina Assembler a(s) 
instrução (6es) que deve(m) ser executada(s). Na linha 130, 
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INSTRUÇÃO FLAGS ACUMULADOR 
| | BINÁRIO 


t 


MECARIDINN 


Pedi eric dia O 
76543210 


a OA AN 
SZ?H?2$NC 


B1 B2 B3 B4 


«AA, «BB CC, «DD EE,HH LL, XX ZC 


REGISTROS EM HEXADECIMAL Larry FLAG 


(HL) >ZERO FLAG 





Figura 1 
passa o controle ao Assembler, que executa toda a tarefa de 
montagem de registros, flags etc. 

Se a instrução for menor que 4 bytes, os bytes restantes se- 
rão preenchidos com O0(NOP); se for maior, o excesso será 
ignorado. Agora, se nenhuma instrução for fornecida, a última 
será reexecutada, proporcionando a possibilidade de observar 
uma sequência sem redigitá-la. 

O Assembler cria um conjunto fictício de registros e opera 
com eles, os quais sempre são mantidos atualizados e em me- 
mória. A cada operação, eles são recuperados, modificados e 
reguardados. 

A TELA 


Na tela, após a execução dos 4 bytes da instrução fornecida 
via BASIC, serão apresentados os dados que constam da figura 
1, os quais possuem as seguintes funções: 

. — mostra os bytes executados; 

e Flags — mostra cada um dos flags: S (sinal), Z (zero), H 
(meio arraste), $ (paridade overflow), N (subtração), C/carry), 
? (não utilizado); 

e Acumulador binário — mostra o acumulador na sua forma 
binária (bit por bit); 

e Registros — mostra o conteúdo do acumulador e dos pares 
BC, DF e HL em hexadecimal; 

e xx — mostra o conteúdo da memória apontada por HL; 

e ZC — mostra os flags zero e carry que, por serem os mais 
utilizados, são destacados do grupo anterior. Não confundir: se 
o flag for O, não significa que o resultado da operação tenha 
sido zero; no entanto, se este for 1, resultado foi zero. 

A tela mostra a situação descrita na figura 1 para as últimas 
seis operações executadas. 
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10 SLOW 

20 PRINT "GERSON B ALONSO - MI 
CRO SISTEMAS” 

30 PRINT ” INSTRUCAO 
AG ACUMULADER E E8 E 
E Es" 

40 PRINT AT 21,3;"8 BU E O 
o a am) Ea" 

50 LET A$="00" 

60 LET A$=A$+"0000000" 

70 LET A$=A$( TO 8) 

80 LET N=16530 

90 POKE N, CODE A$*16+CODE A$(2 


IND-FL 
[SZ2H25] 


LET N=N+1 

LET A$=A$(3 TO ) 

IF A$<>"" THEN GOTO 90 
RAND USR 16514 

INPUT A$ 

IF A$="" THEN GOTO 130 
Goto 60 

SAVE "OBS REG" 

RUN 





RESTRIÇÕES E EXEMPLO 


Antes de passarmos ao exemplo, é importante observar 
algumas restrições concernentes à operacionalidade do progra- 
ma: 


1) Devido às próprias características dos equipamentos da li- 
nha Sinclair, os registros auxiliares (AF”, BC”, DE" e HL”), bem 
como os índices (IX e IY), não podem ser utilizados, pois o sis- 


AF 00 00 00 
00 00 00 00 


3E 7E 00 00 
7E 00 00 00 


17 00 00 00 
FC 00 00 00 


A7 00 00 00 
FC 00 00 00 


06 04 00 00 
FC 04 00 00 


80 00 00 00 
00 04 00 00 


CE 00 00 00 
01 04 00 00 


CE 47 CB F7 
45 04 00 00 
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01000100 
00 00 00 
01000100 
00 00 00 
01101100 
00 00 00 
10111100 
00 00 00 
10111100 
00 00 00 
01010001 
00 00 00 
00000000 
00 00 00 


00000000 
D3 10 


01111110 
D3 10 


11111100 
D3 10 


11111100 
D3 00 


11111100 
D3 00 
00000000 
D3 11 


00000001 
D3 00 


01000101 
D3 


00 
Emos 








tema os emprega para o manuseio da tela no modo SLOW. Co- 
locando o programa em FAST, é possível acessá-los, bastando 
algumas alterações no programa e observando as restrições ci- 
tadas no manual. 
2) Como o ponto de retorno ao BASIC é mantido no stack, 
este só deve ser utilizado se for reconstituído o seu estado ori- 
ginal antes de acabar a rotina Assembler. Portanto, toda instru- 
ção PUSH deve ter o seu POP respectivo durante o processo. 
3) As instruções são executadas sem ser analisadas, pois isto 
exigiria um programa muito extenso. Desta forma, elas devem 
ser executadas uma a uma, ou em grupos que totalizem 4 bytes. 
4) Saltos serão executados fugindo ao controle do sistema, 
o que deve ser feito com bastante critério ou dentro de sub- 
rotinas. 
5) Sub-rotinas podem ser utilizadas, desde que observados os 
itens anteriores. 
mos agora ao exemplo. A rotina Assembler que está na 

figura 2 destina-se a demonstrar o efeito do programa. Pode-se 
observar a situação interna nas últimas seis operações. A partir 
daí, sempre é executado um SCROLL, perdendo-se a informa- 
ção mais velha. 

Podemos saber agora tudo o que aconteceu durante a exe- 
cução da nossa rotina: o acumulador contém 45H, o registro B 
contém 04H e não há nenhum flag setado. 


DICAS FINAIS 


Caso você precise verificar algumas rotinas, estas devem ser 
montadas em qualquer parte da memória e chamadas por um 
CALL (CD xx xx) que contém menos de 4 bytes. Este proces- 
so permite executar blocos de instruções cujo tamanho fica li- 
mitado à quantidade de memória disponível. Após a execução, 
serão mostrados os resultados como se a rotina fosse uma úni- 
ca instrução. 

O programa foi montado com fins unicamente didáticos e 
pao rodar em equipamentos com 2 Kb de memória. Vale tam- 

m destacar que, através do valor mostrado pela memória 
apontada por HL, é possível monitorar outros programas 
Assembler. a 





Gérson Bianco Alonso é engenheiro e atua na área de Projetos Mecâni- - 
cos/Estruturais. É autodidata em microcomputadores, possuindo um Sin- 
clair, Sharp PC-1500 e HP-41. Junto com Daniel Hendrick, desenvolve 
programas para estes equipamentos. 








Você pode utilizar palavras diferentes para identificar os comandos 
do DOS, criando novas listas de palavras reservadas. Veja como 






Alterando 





comandos DOS 





uando estamos digitando uma linha de programa, to- 
das as teclas que tocamos estão sendo registradas em 


um buffer de memória. Trata-se de um espaço de 256 - 


bytes (que ficam na página número dois da memória RAM) on- 
de são registrados temporariamente todos os comandos e ins- 
truções que introduzimos até que pressionamos a tecla de re- 
torno (RETURN ou CR: retornar o carro). É justamente por 
este motivo que o computador impede que sejam escritas li- 
nhas de instrução muito grandes. As linhas só podem ser in- 
troduzidas caso possam ser colocadas no espaço de 256 bytes 
destinados ao buffer de entrada pelo teclado. 

Assim que definimos que a linha já acabou de ser escrita, o 
computador percorre este buffer e procura entender o que foi 
introduzido, tentando identificar comandos que sejam da lin- 
guagem BASIC ou do Sistema Operacional de Discos. Feita a 


identificação, a linha de programa é registrada em um outro | 


ponto da memória e o buffer de entrada volta a ficar disponí- 
vel para uma outra entrada pelo teclado. 

uando percorre o buffer procurando palavras reservadas 
do BASIC ou do DOS, o computador tem que confrontar cada 
sequência de caracteres que digitamos com uma lista interna de 
palavras reservadas. Quando encontra uma palavra de que ele 
conhece o significado, já saberá o que fazer quando tiver que 
executar o programa, uma vez que cada palavra reservada tem 
uma função e uma aplicação específicas. 

Existem basicamente, portanto, na memória do computa- 
dor, duas listas: uma lista dos comandos da linguagem BASIC 
e uma lista das palavras reservadas do Sistema Operacional. 
Embora tenham a mesma função, as listas são registradas em 
tipos diferentes de memória do computador. A lista de coman- 
dos BASIC é dita residente e é gravada na memória ROM. A 
lista de comandos DOS é armazenada em memória RAM assim 


que o equipamento é ligado. 
AS FORMAS DE REGISTRO 


As listas de comandos estão registradas em endereços espe- 
cíficos da memória, e a forma como são registradas as palavras 
reservadas é bastante simples. No Apple, a tabela de ASC Il é 
duplicada, de modo que todos os caracteres podem ser identi- 
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Rudolf Horner Junior 


SPEED= 
COMMAND 


TEXT s 


E E « 
2a sp | - 


HOME * NoRMaL & 
PRINT “LISTA DOS 
PRINT 
= 3436 TO : REM 

LISTA DE COMMAND 


QàS APPLESOFTES*: 

FOR A 
ENDERECOS Dá 

OS APPLESOFT 

sa C = PEEKk 


cão: PRINT CHR$ (CC) 
IF € < 128 THEN 60 
:L+ 142º HTOB 1 + 3x 
í O ES BO RR 
K = 8 THEN PRINT 


HEXT = PRINT 3 END 





ficados por até dois números. Desta forma, a letra T pode ser 
codificada tanto pelo número 84 como pelo número 212, que 
é da segunda tabela. 

Para registrar o comando PRINT na lista de palavras reser- 
vadas, por exemplo, são gastos cinco bytes (um para cada ca- 
ráter da palavra). Em determinado ponto da ROM (pois 
PRINT é um comando da linguagem BASIC), existe um nú- 
mero que codifica a letra P, outro que codifica a letra R, outro 
a letra 1 e outro a letra N. Todos estes números são tomados da 
primeira tabela de ASC II. Para registrar a letra T (última da 
palavra), usa-se igualmente o ASC II de T em sua codificação, 
mas da segunda tabela e não da primeira (212 e não 84). Desta 
forma, fica registrado o comando PRINT como uma palavra 
reservada de BASIC, e o ASC II da última letra da palavra é co- 
dificado com um número da segunda tabela, para indicar o fi- 
nal desta palavra. 

O programa que está listado na figura 1 lê a memória ROM 
do computador e faz uma lista de palavras reservadas através 
destas formas que acabamos de explicar. A lista de comandos 
BASIC, como podemos ver na instrução da linha 20, principia 
no endereço decimal 53456 e vai até o endereço 53860. O 
programa simplesmente lê os números e os transforma para o 
caráter ASC II correspondente. Toda vez que é encontrado um 
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HOME : NORMAL : SPEED= 
PRINT “LISTA DOS COMAND 
D.0,.5.": PRINT 

4sida TO 43271: 


TEXT : 


EE e 
di cal call O 


OS Da 


FOR A = REM 


ENDERECOS DA LISTA DE COMMAND 
OS D,.0,S. 


= PEEK cmo: PRINT CHE$ cc> 
:: IF C< I2S THEN ASA 
L=L + 1: HTÕE i+tIA x 
INT (bz 4) * 45 
IF PEEK (36>D = q 


A 


THEN PRINT 


NEXT : PRINT : END 





Figura 2 


número que representa uma letra da segunda tabela, o compu- 
tador sabe que encontrou o final de uma palavra reservada. 

Na figura 2 temos um programa bastante semelhante ao da 
figura 1. Este programa também elabora uma lista de coman- 
dos, desta vez percorrendo a memória RAM e gerando a lista 
de comandos do Sistema Operacional de Discos. Os endereços 
de memória agora são de 43140 até 43271. É importante ob- 
servar, entretanto, que estes endereços fazem referência à lista 
de comandos do DOS para sistemas com 48 Kb de memória 
RAM. Para sistemas que dispõem de menos memória, a lista de 
comandos é registrada em endereços menores. O funcionamen- 
to deste programa é idêntico ao do anterior e a figura 3 mostra 
o que acontece quando ele é executado. 

Observe que a lista de comandos do DOS tem 28 comandos, 
dos quais dois (SAVE e LOAD) são comuns à lista correspon- 
dente do BASIC. Para o BASIC, estes comandos fazem referên- 


LISTA DOS COMANDOS DO D.O.S. 


FELIN 
UNLOCK 
WEITE 
FRENAME 
PR 

INT 
VJERIF'Y 


INIT 
CHAIN 
CLOSE 


LORD 
DELETE 
READ 
OPEN APPEND 
MOM HOMON 
MASFILES FP 
ELORD BRUM 


SAVE 
LOCK 
EXEC 


POSITION 
CATALOG 
IN& 
ESAUE 





cia ao uso do gravador cassete armazenamento de infor- 
mações; para o DOS, SAVE e LOAD representam a maneira de 
registrar e carregar programas em BASIC para um disco magné- 
tico. 


COMO ALTERAR AS PALAVRAS DO DOS 


Como já vimos, os comandos do DOS estão registrados em 
memória RAM e, sendo assim, podemos alterar seus nomes 
através do comando POKE. Considere, por exemplo, que quei- 
ramos traduzir o comando DELETE, que serve apagar de- 
terminados títulos do disco magnético. DE possui seis 
caracteres e, portanto, só poderemos substituí-lo por uma pala- 
vra que também tenha seis caracteres: APAGAR, por exemplo. 
Para fazer isto, devemos encontrar os endereços onde estão as 
letras do comando DELETE e trocá-las pelas letras de seu subs- 
tituto APAGAR. É necessário lembrar que, ao registrar a últi- 
ma letra (R), devemos fazê-lo usando a segunda representação 
da tabela de ASC II para a letra R. Feita a troca, o computador 
indicará um erro de sintaxe se tentarmos usar o comando DE- 
LETE, pois ele já não existe mais. No entanto, com o comando 
APAGAR que acabamos de criar, poderemos fazer exatamente 
o mesmo que faríamos com DE + uma vez que só muda- 
mos o seu nome e não a rotina em linguagem de máquina que 
realiza sua função. 

Se você quiser criar um disco com esta mudança, basta ini- 
cializá-lo com o sistema operacional que acabou de ser altera- 
do, empregando o comando INIT, ou qualquer outro que quei- 
ra criar para substituí-lo. Caso você execute o programa da fi- 
gura 2, após efetuadas as modificações, as palavras que foram 
alteradas já irão constar da lista de comandos, ocupando o lu- 
gar das antigas. 

O programa listado na figura 4 foi feito justamente para fa- 
cilitar a alteração dos comandos do DOS. Basta que o usuário 
escreva o nome do comando que define a rotina que ele quer 
alterar e, em seguida, o novo nome que ele pretende usar para 
identificar aquele comando do Sistema Operacional de Discos. 

A alteração é feita automaticamente. A única restrição é 
que os novos nomes deverão ter sempre o mesmo número de 
caracteres que os antigos. 





Rudolf Horner Junior cursa Ciência da Computação na Unicamp e é só- 
cio da Potencial Software, firma que produz programas para microcom- 


- putadores em Campinas, SP. 


ei 


TEXT : HOME : NORMAL : SPEED= 
2553: DIM C$c<28).L<28)> 

PRINT "ALTERACOES DE COMANDOS 
D.0.S": POKE 34.5: HOME 


FOR A'= 1 TO 28: READ B.C$cAa> 100 


ELCAD = 43140 + EB: NEXT 
HOME : PRINT 
COMANDO <S2N57 
R$ = "Nº THEN 190 


“32 GET R$: IF 


HOME *: PRINT : PRINT : INPUT 126 
“QUAL COMANDO? “sCU$: PRINT 130 


: PRINT 
FOR A = 1 TO 28: .IF cus < 
C$cA> THEN NEXT 
IF A > 28 THEN PRINT “NAO EN 
CONTRADO! +": PRINT : PRINT = 
PRINT “PRESSIONE UMA TECLA: 
“ss GET R$: GOTO 46 
INPUT “PARA QUAL? “sCN$: IF LEM 
cCNS> « >» LEN <CU$S> THEN PRINT 
* PRINT : PRINT "QUANTIDADE 
DE CARACTERES ERRADA": PRIHT 
* PRINT : PRINT "PRESSIONE U 
M TECLA: "sz: GET R$: GOTO 4a 


Figura 4 
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Se FORC=1TOta Bco = as: 


“DESEJA ALTERAR 118 


NEXT 
: FÓRC = 1 TO LEN <CN$>:B< 
C> = ASC < MID$S <CN$.C. 125: 
NEXT 

B< LEN <CN$>> = B< LEM <CN$>> 
+ 128 

FOR C = Lc<A) TO L<A> + LEN 
<CU$>: POKE C.ECC + 1- LcA> 
»* NEXT 

C$ca> = cuNs 
PRINT : PRINT : PRINT “PRONT 
O. COMANDO TROCADO,": PRINT 
* PRINT : PRINT : PRINT "PRE 
SSIONE UMA TECLA: “sz GET R$ 
: GOTO 40 
DATA O. INIT.4.LOAD, 3. SAVE. 
12, RUN. 15. CHAIN. 20. DELETE 
DATA Z6-LOCK. 30, UNLOCK, 36. C 
LOSE, 41. READ, 45. EXEC. 49, WRIT 
E : 

DATA S4,POSITION.62,0PEN., 66 
*APPEND. 72. RENAME. 78. CATALOG 
+85. MON. SS, NOMON 

DATA 93. PRO. SE. INH, 99. MAXF IT 
LES. 107.FP. 1093, INT. 112. ESQUE 


1580 


190 


210 


220 € = 


DATA 117. BLOAD, 122. BRUN, 126 
»"UERIFY 

TEXT : HOME : NORMAL : SPEED= 
255: PRINT "LISTA DOS COMANDO 
os D.0,.5.“: PRINT 

FOR À = 43140 TO 43271 

PEEK <A): PRINT CHR$ <C 


38º IF C< 128 THEN 250 


230 L = L + 1º HTAB.d + 10 4 «OL — 


240 


250 


INT «L7 42 4 44 
IF PEEK <36> = & THEN PRINT 
NEXT =: PRINT 
PRINT : PRINT "PARA REGISTRA 
E OS NHOUOS COMANDOS , UOCED 
EVERA INICIALIZAR UM DISCO € 
OM ESTE SISTEMA OPERACIONAL 
ALTERADO, " 

PRINT : PRINT “NA INICIALIZA 
CAO USE O COMANDO *INIT” QUO 
SEU CORRESPONDENTE APOS AS 

ALTERACÕOES EFETUADAS. " 

END 
REM ESTE PROGRAMA FOI ESCRI 
TO PARA D.0.S. COM 4SK DE RA 
M 








Arquivos 
protegidos 





pretende ilustrar a técnica de cria- 

ção e proteção de arquivos em mi- 
crocomputadores TK85 que, sendo da 
linha Sinclair, possui funções como 
DHSAVE e DHLOAD que facilitam bas- 
tante o uso de arquivos. Isto porque, 
além de gravar somente os dados, estas 
funções possibilitam uma rápida leitura 
da fita cassete (em apenas cinco minu- 
tos, por exemplo, é possível ter acesso a 
mais de 100 Kb de dados, tornando real- 
mente rápido o ato de procurar fichas 
gravadas). 


Um arquivo para computador é prati- 
camente igual a qualquer arquivo de es- 
critório. Você pode criar fichas, apagá- 
las e corrigi-las. A única diferença é que, 
devido à limitação de memória destes 
pequenos equipamentos, você terá aces- 
so a um bloco de fichas e não a todas as 
fichas que gravou, mas você pode traba- 
lhar com um bloco e depois carregar o 
micro com um novo bloco. Desta forma, 
é ilimitado o número de fichas que se 


podem gravar. 
CRIANDO E PROTEGENDO FICHAS 


O programa que ora apresentamos 


Uma ficha nada mais é do que um 
conjunto de informações sobre uma 
pessoa ou outra coisa qualquer. Vejamos 
dois exemplos: 


a) NOME: Fulano; IDADE: 8 meses; 
SEXO: masc. 


Roberto Tannenbaum 


Você pode transformar 
seu TK85 em um arquivo 
confidencial, ao qual 
apenas você terá acesso 
a partir de um código 
secreto. Neste artigo. 
revelamos as técnicas 
de criação e proteção de 
fichas, exemplificando 
com um programa que 
simula no computador um 
arquivo farmacêutico. 


b) PAÍS: Brasil; MOEDA: cruzeiro; 

POPULAÇÃO: 120 milhões 

Como fazer uma destas fichas no 
computador? É muito simples: 10 LET 
AS = “NOME: FULANO IDADE: 8 
MESES SEXO: MASC.” (NEWLINE e 
RUN). Para ter acesso a esta ficha, basta 
usar PRINT A$ (NEWLINE). Digamos, 
porém, que você se lembre de que fula: 
no tem 9 e não 8 meses. O que fazer 
para corrigir a ficha? Digite a linha 10 
novamente, trocando 8 por 9. O único 


problema é que não só a ficha foi altera- 
da, mas também o programa não é mais O 
mesmo, pois esta nova linha 10 é dife- 
rente da anterior. 


Muito bem. Agora tente este progra- 
ma: 10 INPUT AS$ (NEWLINE e RUN). 
Para entrar a ficha, digite-a e pressione 
NEWLINE. Para corrigir, repita o passo 
anterior. Este exemplo mostra que para 
fazer fichas é preferível usar INPUT a 
LET, pois, assim, podemos modificar a 
ficha sem alterar o programa e, desta 
forma, gravá-lo uma única vez. 

E para ampliar o arquivo de 1 para 
30 fichas, o que fazer? Pode-se pensar 
em usar 20 INPUT BS$, 30 INPUT C$ 
etc., um para cada ficha. No entanto, 
isto é impossível, pois uma string possui 
só uma letra para identificá-la: portanto, 
não teríamos 30 fichas disponíveis. Po- 
de-se pensar em usar matrizes: AS 
(30,100) — 30 é o número de fichas e 
100 o tamanho de cada uma. Isto tam- 
bém não funciona, uma vez que o TK 
grava apenas matrizes de uma dimensão. 
A única solução é, portanto, DIM AS 
(3000). Teríamos AS$(1) até A$(100) 
como primeira ficha, ou A$ (101 TO 
200) para a segunda, ou ainda A$ (1+ 
100*N TO 100+100*N) para a enésima 
ficha. Ao gravarmos A$, estaremos gra- 
vando todas elas juntas. 


Vamos passar agora para o assunto 
proteção de blocos. Se no nosso exem- 
plo tivéssemos dimensionado A$ (3010), 
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teríamos uma sobra de dez elementos, 
A$(3001 TO 3010), que podem ser 
preenchidos com quaisquer caracteres 
através de um comando INPUT. Esses 
caracteres podem funcionar como um 
código de proteção: basta entrar com 
um código de-acesso antes da leitura de 
um bloco. Logo após a leitura, esse có- 
digo de acesso é comparado ao de prote- 
ção, A$(3001 TO 3010). Se os dois có- 
digos forem diferentes, podemos apagar 
todas as fichas com RUN ou CLEAR. 
Assinr, só quem gravou o código de pro- 
teção saberá o código de acesso correto, 
protegendo, assim, o bloco. 


O PROGRAMA 


O programa utiliza estas técnicas que 
acabamos de ver, e mostra sua eficiência 
na prática. Através dele, você manipula 
um arquivo farmacêutico, ou seja, você 
pode fichar vários remédios e suas prin- 
cipais características: nome (é evidente), 
laboratório que o produziu, indicações, 
contra-indicações e posologia. 

Cada bloco é constituído de 15 fi- 
chas, com espaço reservado para o códi- 
go de proteção. O computador trabalha 
com apenas um bloco por vez. Por 
exemplo, se você desejar fichar 50 remé- 
dios, terá que gravar quatro blocos 
(15+15+15+15) — não se preocupe com 
isto, pois em menos de três minutos vo- 


cê poderá listar todos os blocos. Para 
manipular o arquivo, devem-se utilizar 
os códigos de operação que aparecerão 
no vídeo ao executar o programa. Estes 
códigos são: 


1) Fichar os nomes — tecle 1 (NEWLI- 
NE) e o computador listará os nomes 
dos 15 remédios que compõem o bloco. 
O número do lado esquerdo de cada 
nome é o número correspondente âque- 
la ficha. Este número é importante, pois 
será usado para apagar, ler ou corrigir a 
ficha correspondente. Caso a ficha esteja 
em branco ou o item nome não tenha 
sido preenchido, aparecerá somente o 
número da ficha seguido de dois pon- 
tos (:). Para voltar aos códigos de opera- 
ção, digite qualquer tecla. 


2) Fazer uma ficha — para preencher 
uma ficha em branco tecle 2 (NEWLI 
NE). Aparecerá a pergunta: QUAL O 
NOME? Digite o nome e depois NEW- 
LINE. Responda as outras perguntas da 
mesma maneira. Quando a ficha estiver 
pronta, ela ficará no vídeo até qualquer 
tecla ser pressionada. Se você tentar fa- 
zer a 162 ficha (só existem 15), o 
computador mandará armazenar o bloco. 


3) Apagar uma ficha — para apagar uma 
ficha, tecle 3 e NEWLINE. Para respon- 
der qual deve ser apagada, tecle o núme- 


ro correspondente e NEWLINE. O 
número da ficha é aquele do código 1. 


4) Corrigir uma ficha — tecle 4 (NEW- 
LINE). Entre com o número da ficha a 
ser corrigida (e NEWLINE). Para indicar 
qual item deve ser corrigido, tecle a pri- 
meira letra do item, por exemplo: tecle 
P para corrigir a POSOLOGIA. Digite 
a nova posologia e NEWLINE. Para cor- 
rnigir outro item pressione S, ou então 
N. A ficha corrigida ficará no visor até 
que alguma tecla seja acionada. 


5) Gravar um bloco — tecle 5 (NEWLI- 
NE). Aparecerá na tela a seguinte men- 
sagem: QUAL O CODIGO DE PROTE- 
CAO? Entre com o código digitando, no 
máximo, nove caracteres (e NEWLINE). 
Pressione PLAY-REC no gravador e 
NEWLINE para iniciar a gravação (su- 
põe-se que a fita esteja no lugar certo e 
que os fios estejam ligados corretamen- 
te). Se a gravação for bem-sucedida, o 
computador apagará todas as fichas, for- 
necendo assim 15 novas fichas. Caso 
contrário, aparecerá o erro cometido. 


6) Carregar um bloco — digite 6 e 
NEWLINE. Responda qual é o código de 
acesso, digitando depois NEWLINE (este 
deverá ser igual ao código de proteção do 
bloco que será carregado). Pressione 
NEWLINE e PLAY no gravador. Caso a 
leitura seja perfeita e o código de acesso B 


CPR CA TAPETES DEDE TAM NT 
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ARQUIVOS PROTEGIDOS 


nte er tr A O CS OO 


10 REM ROBERTO TANNENBAUM 

20 FAST 

30 DIM A$(10570) 

40 LET 2=10570 

50 LET Z$="A" 

60 LET B$="NOME:( 17) LAB: (38) 

INDICACOES: (277) CONTRA-INDICAC 
0ES: (206) POSOLOGIA: (118) " 

70 FOR F=0 TO 14 

80 LET A$(10+F*704 TO 713+F*70 


NEXT F 

SLOW 

CLS 

PRINT "CODIGOS DE OPERACAO" 


PRINT "1-LISTAR OS NOMES" 
PRINT "2-FAZER UMA FICHA" 
PRINT "3-APAGAR UMA FICHA" 
PRINT "4-CORRIGIR UMA FICHA 


PRINT "5-GRAVAR UM BLOCO" 
PRINT "6-CARREGAR UM BLOCO" 
PRINT "7-LISTAR UM BLOCO" 
PRINT "8-LER UMA FICHA" 
INPUT € 

IF C<l OR C>8 THEN GOTO 210 


CLS 
GoTo c*1000 

1000 PRINT "OS NOMES DESTE BLOCO 

SAO:",er 

1010 FOR D=0 TO 14 

1020 PRINT D;TAB 2;A$(14+D*704 T 
o 31+D*704) 

1030 NEXT D 

1040 IF INKEY$="" THEN GOTO 1040 
1050 GoTO 110 

2000 FOR D=0 TO 14 

2010 IF A$(10+D*704 TO 713+D*704 
)=B$ THEN GOTO 2060 

2020 NEXT D' 

2030 PRINT "ARMAZENE ESTE BLOCO 
ANTES DE FAZER UMA NOVA FICHA" 
2040 PAUSE 500 

2050 GOTO 110 

2060 FOR G=2110 TO 2230 STEP 30 
- 2070 GOSUB G 

2080 CLS 

2090 NEXT G 

2100 GOTO G 


NOME: 


INDICAÇÕES: 


CONTRA-INDICAÇÕES: 


POSOLOGIA: 


Figura 1 


esteja correto, aparecerão os nomes dos 
remédios deste bloco; caso contrário, 
aparecerá a indicação - 2/6090 no canto 
do vídeo. 

7) Listar um bloco — digite 7 (NEWLI- 
NE). O computador fará uma rápida lis- 
tagem de todas as fichas, demorando 
dois segundos em cada uma. Para parar 
em uma delas * suaai BREAK, para 
continuar, CONT. 

8) Ler uma ficha — se você desejar ape- 
nas ler uma ficha, digite 8 (NEWLINE). 
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2110 PRINT "QUAL O NOME?" 

2120 INPUT A$(15+D*704 TO 30+D*7 
04) 

2130 RETURN 

2140 PRINT "QUAL O LABORATORIO?" 
2150 INPUT A$(36+D*704 TO 41+D*7 
04) 

2160 RETURN 

2170 PRINT "QUAIS AS INDICACOES? 


2180 INPUT A$(85+D*704 TO 329+D* 
704) 

2190 RETURN 

2200 PRINT "QUAIS AS CONTRA INDI 

CACOES?" 

2210 INPUT A$(380+D*704 TO 553+D 
*704) 

2220 RETURN 

2230 PRINT "QUAL A POSOLOGIA?" 
2240 INPUT A$(596+D*704 TO 713+D 
*704) 

2250 RETURN 

2260 PRINT AT 0,0;A$(10+D*704 TO 
713+D*704) 

2270 IF INKEY$="" THEN GOTO 2270 
2280 GOTO 110 

3000 PRINT "QUAL FICHA SERA APAG 

ADA?" 

3010 INPUT D 

3020 LET A$(10+D*704 TO 713+D*70 
4) =B$ 

3030 GOTO 110 

4000 PRINT "QUAL FICHA SERA CORR 
IGIDA?" 

4010 INPUT D 

4020 CLS 

4030 PRINT "QUAL ITEM SERA CORRI 

GIDO?" 

4040 PAUSE 50000 

4050 LET C$=INKEY$ 

4060 CLS 

4070 LET X=2110*(C$="N")+2140*(C 

$="L")+2170*(C$="1")+2200* (C$="C 
")+2230*(C$="P") 

4075 IF X THEN GOSUB X 

4080 CLS 

4090 PRINT "MAIS ALGUMA CORRECAO 

2(S/N)" 

4100 PAUSE 5000 

4110 IF INKEY$="S" THEN GOTO 402 


Para indicar qual delas, entre com o 
número correspondente e NEWLINE. 
Ela permanecerá no vídeo por 15 minu- 
tos ou até ser pressionada qualquer tecla. 

São estes os códigos de operação. 
Podem parecer confusos, mas a melhor 
forma de entendê-los é digitando todo o 
programa e colocando-o em ação. Você 
verá que ele é realmente fácil de operar. 


Tome cuidado apenas ao entrar com 


a linha 60. O número entre parênteses. 


equivale ao número de espaços a ser 
digitado. Para verificar se você digitou a 
linha corretamente, use PRINT BS 

EWLINE): o resultado deverá ser a 
icha que está na figura 1. Note que 
todos os itens estão na primeira coluna, 
exceto LAB:. Se o resultado for diferen- 
te, faça as correções necessárias. Outra 
coisa: se o programa se interromper (ca- 
so você coloque dados errados), pressio- 
ne GOTO 110 e NEWLINE para reini- 
ciar. 


0 

4120 GOTO 2260 

5000 PRINT "QUAL O CODIGO DE PRO 

TECAO?" 

5010 INPUT A$(1 TO 9) 

5020 CLS 

5030 PRINT "PRESSIONE PLAY-REC E 
NEWLINE" 

5040 PAUSE 40000 

5050 CLS 

5060 LET E=USR 9008 

5070 SLOW 

5080 IF E=0 THEN GOTO 5110 

5090 PRINT "ERRO ";E;" TENTE NOV 

AMENTE" 

5100 GOTO 5020 

5110 PRINT "BLOCO GRAVADO" 

5115 PAUSE 200 

5120 RUN 

6000 PRINT "QUAL O CODIGO DE ACE 

Sso?" 

6010 INPUT D$ 

6020 CLS 

6030 PRINT "PRESSIONE NEWLINE E 

PLAY" 

6040 PAUSE 40000 

6050 LET E=USR 9189 

6060 IF D$<>A$(1 TO (LEN D$)) TH 

EN CLEAR 

6070 SLOW 

6080 CLS 

6090 IF E=0 THEN GOTO 1000 

6100 PRINT "ERRO ";E;" TENTE NOV 

m 


6110 GOTO 6020 

7000 FOR F=0 TO 14 

7010 PRINT A$(F*704+10 TO F*704+ 
713) 

7020 PAUSE 120 

7030 CLS 

7040 NEXT F 

7050 GOTO 110 

8000 PRINT "QUAL A FICHA?" 

8010 INPUT D 

8020 CLS 

8030 PRINT A$(10+D*704 TO 713+D* 
704) 

8040 PAUSE 40000 

8050 Goro 110 





É aconselhável gravar blocos com as 
15 fichas completas, pois você gastará o 
mesmo tempo e a mesma memória que 
para gravar um bloco com uma só ficha 
preenchida. Ainda aconselho gravar so- 
bre um bloco que não tenha mais utili- 
dade. Por exemplo: você carrega O 
computador com um bloco, faz algumas 
correções em algumas fichas. Ao gravar 
o bloco corrigido, faça-o sobre o não — 
corrigido, aquele que não tem mais utili- 
dade. É bom ter uma fita de segurança, 
cópia da original, e que esteja sempre 
atualizada. 

E para terminar, uma observação: pa- 
ra 48 Kb de memória, o número de fi- 
chas de cada bloco pode chegar a 60. É 


só fazer as alterações necessárias. e 


Roberto Tannenbaum é estudante de Enge- 
nharia na Escola Politécnica da USP e tem por 
hobby a programação de calculadoras e 
micros. 








o 
ENTREGA IMEDIATA 


Simples face /simples densidade 


FD 34-9 000 


26 setores 


| 128 bytes sector, 5 p< legadas 


| oimples face /dupla densidade 
| FD 34-8 000 Não setorizado - não formatado 
| 8 polegadas 


no a e 


Dupla face /dupla densidade 
DD 34-4001 Não setorizado - não formatado 
S p« leg: F 


| 
| 
01 | Simples face /dupla 
dr | sidade 40 trilhas 5 1/4 polegadas 
———eae eee eee eee 
í 


| 
Ez | Dupla face/dupla 
MD 550-01 | densidade 40 trilhas 5 1/4 polegadas 
E RARE nara ad o o 


Datalife 100% livre de erros 


CENTRAL DE VENDAS: 


Av. Amolfo de Azevedo, 108 - Pacaembu 
PABX (011) 262-5577 - Telex (011) 34545 
CEP 01236 - São Paulo 


Filial Rio: Praia do Flamengo, 66 cj: 1519 
Tel: (021) 205-3849 - 225-3469 
Para encomendas fora de São Paulo 


LIGUE DIRETO GRÁTIS 
(011) 800-8462 


PRODUZIDO NA 

ZONA FRANCA DE MANAUS 

signitica: qualidade com 5 anos de garantia 
e o melhor preço do mercado. 


Revendedores e fabricantes interessados 


Tel: (011) 262-5332 


DE MANAUS PARA A MEMPHIS 
DA MEMPHIS PARA TODO O BRASIL 










Mais um evento na área de 
Informática reunirá, em am- 
plo debate, profissionais do 
ramo, autoridades, intelec- 
tuais, usuários, estudantes e 
o público em geral: o Vi Con- 
gresso Regional e Ill Feira Na- 
cional de Informática, a se 
realizarem de 15 a 20 de maio, 
no Centro de Convenções da 
Citur, em Balneário Cambo- 
riu, Santa Catarina, tendo co- 


SUCESU-SC promove 
Congresso Regional 


néis e sessões técnicas, pro- 
curando dar aos participantes 
uma visão atual e futura das 
aplicações dos computadores 
nos diversos campos de ati- 
vidade. 

Os estandes da Ill Feira 
ocuparão uma área de 1.340 
metros quadrados, estando 
ainda reservado um espaço 
para as universidades da re- 
gião que desenvolvem proje- 
tos na área e tenham interes- 


Mais uma 


Inaugurada recentemente 
no Rio de Janeiro, a Data- 
micro Informática Ltda. está 
comercializando computado- 


loja no Rio 


área de cursos destacam-se o 
de Aplicação do Microcom- 
putador na Engenharia e Mi- 
crocomputador para Criança, 


mo tema “Informática a ser- 
viço da comunidade”. 

A promoção é da SUCESU- 
Nacional e a realização da 
SUCESU-SC, com o patroci- 
nio oficial da SEI. O VI Con- 
gresso terá conferências, pai- 


se em divulgá-los. As sessões 
para estudantes, jovens e cri- 
anças serão desenvolvidas 
num pavilhão anexo ao da 
Feira, com área de 300 me- 
tros quadrados. 


ambos oferecidos em diver- 
sos horários. A Datamicro fica 
na Rua Visconde de Pirajá, 
547 — sobreloja 211, Ipane- 
ma, Rio de Janeiro — RJ, CEP 
22410, tel.: (021) 274-1042. 


res Color 64, TK 83 e 85 e os 
CPs 300 e 500, além de peri- 
féricos, suprimentos, progra- 
mas aplicativos, livros e revis- 
tas especializados, cursos e 
treinamento de pessoal. Na 





Dois novos Apples no mercado nacional 


Link 323 





A Link, uma empresa com experiência em consultoria e 
desenvolvimento de software, lança agora seu microcomputador, 
o Link 323, compatível com Apple Il. Definido como um micro 
profissional, o Link 323 é comercializado numa versão padrão 
composta por CPU com 64 Kbytes de memória RAM — expan- 
sível até 512 Kbytes — e 12 Kbytes de ROM, teclado com letras 
maiúsculas e minúsculas, monitor de vídeo de fósforo verde, 
interface paralela para impressora, dois drives para disquetes de 
5 1/4" e dois sistemas operacionais: CP /M e DOS. 

Nesta versão o preço sugerido pelo fabricante para comer- 
cialização é de Cr$ 4 milhões e 800 mil, e acompanham os pro- 
gramas Wordstar, Calcstar e Datastar, todos da software-house 
Microstar, com a qual a Link mantém contrato para fornecimento 
de software. Além destes programas, a própria Link está desen- 
volvendo pacotes para controle financeiro, mercantil e cadasiro, 
que estarão disponíveis a partir de março. O Link 323 tem garantia 
de um ano e o comprador recebe gratuitamente um curso de 
15 horas, na própria Link Center, sobre os recursos do equipa- 
mento. O micro da Link será comercializado em lojas especia- 
lizadas, empresas de consultoria e bureaux de serviços, e no 
Mappin, em São Paulo. 


E a 
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Exato 





Com um investimento de cerca de Cr$ 500 milhões, a CCE 
entra no mercado de microcomputação lançando o Exato, compa- 
tível com o Apple americano. Ele opera com processador 6502 
e sua versão básica é composta por CPU com teclado com parte 
numérica independente e teclas de função com cores, 48 Kbytes 
de memória RAM — expansível até 128 Kbytes —, 12 Kbytes de 
ROM e oito slots de expansão com um conector extra para placa 
Pal-M. Nesta versão, o preço do Exato é de Cr$ 1 milhão 180 mil 
e estará disponível em 600 pontos de venda. 

A produção inicial da CCE será de 300 unidades por mês e 
juntamente com o microcomputador a CCE está lançando os 
cartões de expansão de memória com 16 Kbytes de RAM, o con- 
trolador para até duas unidades de acionadores de disquetes de 
5 1/4”, a interface para impressora paralela e o cartão Pal-M para 
acoplar o micro a televisores comuns preto e branco ou a cores. 
A CCE também está colocando à disposição de usuários uma 
linha telefônica para consultas e esclarecimentos que podem 
ser feitos pelo tel.: (011) 265-2199 — São Paulo. 
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Szsco em Campinas 


Continuando o seu plano 
de interiorização, a Sisco- 
Sistemas e Computadores 
S/A inaugurou uma filial em 
Campinas, São Paulo. A infra- 
estrutura da filial Sisco-Cam- 
pinas dispõe de hardware, 
software e treinamento técni- 
co para clientes. Lá também 


já são encontrados vários sis- 
temas para áreas administra- 
tivas e financeiras, inclusive 


em controle de processos. A 
Sisco de Campinas fica na 
Rua Barão de Paranapanema, 
146, bloco B, 5º andar, cj. 51/ 
52, tel.: (0192) 52-4765. 


Software 
para engenharia 


Micro Sistemas fez um le- 
vantamento entre algumas 
lojas de microcomputadores 
em São Paulo para ver o que 
existe de software na área de 
Engenharia. Não mais de dez 
programas foram encontra- 
dos, a maioria para os equi- 
pamentos da linha Sinclair e 
para o micro HP-85, da Hew- 
lett Packard. 

Se você tem um micro ou 
pretende adquirir um para 
usar em Engenharia, aí vão 
algumas dicas de software. 
Para os microcomputadores 
da linha Sinclair encontramos 
os seguintes programas: Cál- 
culo de viga contínua, da Mi- 
crosoft, Cr$ 11.790,00 (preço 
mínimo); Cálculo de Elétrica, 
Cr$ 13.800,00, Cálculo de Hi- 
dráulica, Cr$ 13.800,00 e Con- 
trole de Obras, Cr$ 19.800,00, 
da Baronsoft. Para o HP-85 
são os seguintes os progra- 
mas disponíveis nas lojas: Por- 
plan, que analisa estruturas 


atuando em seu próprio pla- 
no, Cr$ 740.000,00; Grelha, 
analisa estruturas planas com 
carregamento atuando na di- 
reção normal ao seu plano, 
Cr$ 510.000,00; Vicont, anali- 
sa vigas contínuas, Cr$ ... 
189.000,00; e Progeo, deter- 
mina as propriedades geomé- 
tricas de seções de forma 
qualquer, Cr$ 94.000,00. To- 
dos estes programas para o 
HP-85 são da software-house 
Prosystem. Para o CP-500, da 
Prológica, encontramos os 
programas Rede Pert /CPM, 
da LHM, Cr$ 190.000,00; e 
para os sistemas 600 e 700, 
da Prológica, e para o |-7000, 
da Itautec, se encontra nas 
lojas um programa para Orça- 
mento e Cronograma de 
Obras, da Ramo, Cr$ 
377.000,00. 


Participaram da pesquisa 
as lojas MicroShop, Compu- 
shop, Computique, Compu- 


As novas fitas 
da Softkristian 


A Kristian Eletrônica está 
lançando, sob a marca Soft- 
kristian, 12 novas fitas para 
micros com lógica Sinclair, 
entre jogos, utilitários e a fita 
virgem LD-20, utilizando ma- 
terial Ampex. 

As fitas de jogos são as 
seguintes: Viagem Galáctica 
(com três jogos), Grand Prix 
(dois jogos), Contatos Imedia- 
tos (quatro jogos), Mr. Kong 
(três jogos), Boeing 787 (um 
simulador de vôo e mais dois 
jogos), Terceira Dimensão 
(quatro jogos), Velho Oeste 
(quatro jogos) e Grande Sa- 
botagem (quatro jogos), to- 
dos para 16 Kbytes de me- 
mória. 

Os utilitários compreendem: 


Z-80 — Monitor Assembler 
(permite a programação em 
mnemônicos Z80), SKBUG (di- 
sassembler e monitor em lin- 
guagem de máquina) e ROT 3 
(cinco rotinas prontas para 
usar em programas em BASIC: 
High Speed, Super Scroll, CLS 
Espiral, Rotina Tape e Faster. 

Todos esses programas são 
em linguagem de máquina e 
as fitas incorporam o Azimuth 
Regulating System, destinado 
a otimizar o carregamento. 
Essas fitas podem ser encon- 
tradas nos 100 revendedores 
da empresa em todo o país, 
ou na própria Kristian, que 
fica na Rua da Lapa, 120, Gr. 
505, CEP 20021, Rio de Janei- 
ro — RJ, tel.: (021) 252-9057. 





Banco de dados para Sinclair 


TK-FILE é o sistema de Banco de Dados desenvolvido em lin- 


planas com carregamento terland e Imarés. 


guagem de máquina pela Multisoft e que está a disposição dos 
usuários da linha TK da Microdigital. Este programa, possibilita a 
definição das informações que serão manipuladas, bem como sua 
forma de impressão, permitindo a classificação e seleção por 
campos ou chaves, inclusão, alteração, exclusão e consulta de 
fichas. O TK-FILE pode ter diversas aplicações que vão desde uma 
simples lista telefônica até um complexo controle de estoque ou 
mesmo um Banco de Dados para mala-direta. 


STRINGS 


* Com a instalação dos postos Rio de Janeiro (Rua Visconde 
de Pirajá, 414 — Conj. 606, tel.: 227-1002) e Porto Alegre (Av. Bor- 
ges de Medeiros, 410, Bloco Il, 11º andar, Conj. 1108), a Micro- 
digital dá início à sua rede nacional de assistência técnica. * Com 
novo endereço (Av. do Contorno, 6048, Savassi, Belo Horizonte 
— MG, tel.: (031) 225-0644), a Kemitron está lançando diversos 
novos periféricos para o seu micro Naja. à A Potencial Software, 
de Campinas, está lançando o volume dois do seu curso de BASIC 
Passo a Passo, no qual o professor é o próprio micro Apple. 
* A Compucenter Microinformática tem novo diretor técnico: 
Valter Hitelman. * A Softec, fabricante do EGO, micro de 16 bits 
compatível com IBM-PC, inaugurou suas novas instalações indus- 
triais em São Paulo, com cerca de 1 mil m2 e capacidade para 
produzir até 500 unidades /mês. * Estava prevista para a se- 
gunda quinzena de janeiro a chegada às lojas das primeiras uni- 
dades do T Color (compatível com TRS-Color) e Sysdata lll (com- 
patível com TRS-80 Mod. Ill), ambos da Sysdata, com os seguintes 


* A Codimex já está fornecendo as primeiras unidades de dis- 
quete face simples /densidade dupla de 5 1/4”, além de pro- 
gramas aplicativos nas áreas financeira, comercial, de engenharia 
e médica, tudo para o Codimex 6809. * A loja Micro Process 
(Alameda Lorena, 1310, tel.: (011) 64-0468, São Paulo — SP) está 
criando um ponto de encontro de engenheiros, arquitetos e agrô- 
nomos para o fornecimento e intercâmbio de equipamentos e 
programas para essas áreas. x Já está chegando ao mercado o 
videogame VJ 9000, da Dismac. A empresa já exporta calcula- 
doras, sobretudo para Argentina e México, e este ano planeja 
iniciar a venda de micros para o exterior. x A Itautec desenvol- 
veu e está comercializando para o seu micro |-7000 a planilha 
eletrônica de cálculo Calctec. * A Cobra comemora este ano 
os seus 10 anos de existência com o lançamento de diversos 
produtos, entre eles um micro de 32 bits totalmente desenvolvido 
pela empresa. * A Control Data tem planos de instalar no Brasil 
duas fábricas em associação com empresas nacionais: uma de 


preços, respectivamente: Cr$ 380 mil e Cr$ 2 milhões 700 mil. disquetes e outra de computadores médios tipo Cyber 815 e 825. » 
[=] 
SST 
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Assespro firma 
convênios de soft 


A Associação Brasileira das Empresas de Serviços de Infor- 
mática — Assespro encerrou 1983 com a assinatura de três im- 
portantes convênios para fomentar o desenvolvimento e a comer- 
cialização de software nacional: com as multinacionais Control 
Data e IBM, e com a estatal Digibrás. 

O convênio com a Control Data, denominado Programa de 
Apoio ao Desenvolvimento e Comercialização de Programas de 
Computador no Brasil — Progsoft, compreende o desenvolvi- 
mento de software de base, de apoio e aplicativo para uso na 
Rede Cybernet ou em computadores da Control Data. Os pro- 
gramas poderão também ter versões para outros fabricantes que 
não a Control Data, dependendo de contrato específico. 

Já o convênio com a IBM, que recebeu o nome de Programa 
Técnico-Comercial de Interesse Recíproco Assespro-lBM, prevê 
a realização de nove projetos: Desenvolvimento e Comerciali- 
zação de Programas-Produto, Modernização do Parque Compu- 
tacional dos Bureaux de Serviços, Indicação de Empresas para 
Serviços identificados pela IBM, Comercialização de Programas 
pela IBM, Divulgação de Programas-Produto em Catálogo da IBM, 
Demonstrações em Equipamentos IBM, Tradução de Manuais da 
IBM, Tradução e Versão de Programas IBM, Atualização Técnica. 

Quanto ao Programa Nacional de Financiamento para a 
Comercialização de Programas de Computador — Finsoft, assi- 
nado com a posteriormente extinta Digibrás, este ainda tem uma 
chance de se concretizar, de acordo com o presidente nacional 
da Assespro, José Maria T. C. Sobrinho: a sua transferência para 
o BNDES. Até meados de janeiro, contudo, a Assespro não dis- 
punha de uma posição oficial do governo a respeito desse 
convênio. 











Rio e São Paulo têm 
Micro-Festival 84 


Soluções, tecnologia e no- 
vas aplicações estarão pre- 
sentes no Micro-Festival 84, 
de 21 a 24 de março no Palá- 
cio das Convenções do Par- 
que Anhembi, em São Paulo; 
e de 04 a 07 de julho no Hotel 
Nacional, no Rio de Janeiro. 
Este evento é promovido pela 
Guazzelli Associados Feiras e 
Promoções e com orientação 





Soft para Digitus 





Já se encontram disponí- 
veis no mercado os seguintes 
programas para o microcom- 
putador Digitus: Pacote de 
Comunicação, que permite a 
utilização da tecnologia de 
comunicação serial de dados 
para conversar com os outros 
usuários do DGT-1000 (para 
isso é necessário, além do mi- 
crocomputador Digitus, uma 


técnica da Compucenter Mi- 
croinformática. 

A feira ocupará uma área 
de 12 metros quadrados que 
serão locados aos exposito- 
res com os respectivos estan- 
des já montados. Simultanea- 
mente, ocorrerão seções téc- 
nicas em auditórios, abordan- 
do os principais temas rela- 
cionados com a microinfor- 
mática. 


interface RS232 e um mo- 
dem); Digicalc, que é total- 
mente compatível com o Visi- 
calc; Demofita | ou Demodis- 
co |, jogos em linguagem de 
máquina; Demofita Il ou De- 
modisco Il, 12 jogos em BA- 
SIC, e Digfile, um sistema de 
Banco de Dados que permite 
o armazenamento de qualquer 
tipo de informação. A Digitus 
também tem programas para 
Banco de Dados, Controle de 
Estoque, Processador de Tex- 
tos e Editor Assembler. 





A melhor casa do Rio para 


Os executivos que vêm ao.Rio, principalmente a negócios, agora podem contar com 
uma casa que transforma sua rápida passagem ema cidade maravilhosa em 
momentos inesquecíveis. Em pleno coração de Copacabana, estamos de braços 
abertos e prontos para oferecer dos mais simples aos mais sofisticados 
modelos e acessórios que fazem nossa atividade tão excitante e tão imprescindível 
nos dias atuais. 
Oferecemos o que existe de melhor, em termos de qualidade. E a preço e condições de 
amento (é, nós financiamos) que nenhuma outra casa do ramo oferece. 
ossa filial da Rio Branco também tem o mesmo atendimento e o mesmo preço. 
Quando você estiver no Rio, passe bons momentos conosco. Nossos 
preços são tão em conta que de repente a diferença dá para cobrir seus custos de 
em e estadia. 
ocê e sua empresa vão descobrir como é fantástico, e barato, o mundo dos 
erro iraque 
Ve rr erta aí ao lado, por exemplo. 
gre poa tem um microcomputador modular com design moderno expansível 
a64Xk. 
A interface de vídeo colorido é uma de suas opções, e lhe permite usar até 16 cores 
diferentes no mundo de resolução gráfica. Você também pode movimentar no 
vídeo até 32 áreas diferentes. 
Aúnica coisa que não é expansível no DGT-1000 é o preço na Clappy: o menor 
do mercado. . 
Venha conhecer esta nova conquista da DIGITUS. 


Copacabana: Rua Pompeu Loureiro, 99 Clappy 


Centro: Av. Rio Branco, 126 loja e sobreloja. € Tels.: (081) 
222-5517 € 234-0214 6 264-2096 € 2353-3595 0 2228-5781 


6257-4398 60 2536-7175 
COPACABANA: Aberta diariamente das 10 às 20 horas e aos sábados das 10 às 15horas. 





Promoção 


MS/Micromag F | 
entrega 


Color 64 





SEI avalia supermiínis 


A SEI recebeu ao todo 
nove projetos para fabricação 
de superminicomputadores no 
Brasil. Das empresas que 
apresentaram projetos à SEI, 
apenas a Cobra, SID e Labo 
se utilizarão de tecnologia na- 
cional. O comunicado da Se- 
cretaria de Informática sobre 
os projetos dos superminis 
não faz distinção, a priori, en- 
tre os de tecnologia nacional 
e aqueles com tecnologia 
comprada no exterior. O re- 
sultado final dos projetos 
aprovados será divulgado em 
30 de março próximo. As ou- 
tras empresas que apresenta- 
ram projetos para desenvolvi- 


mento dos superminicompu- 
tadores foram: Itautec, com 
tecnologia da Formation ame- 
ricana; Edisa, tecnologia ja- 
ponesa do Fujitsu série V; 
Sisco /Hidroservice, com tec- 
nologia da IPL — Systems, 
compatível com os periféricos 


dos computadores 4331 


4341 da IBM; o consórcio for- 
mado pelo Bradesco, Cia. Do- 
cas de Santos e Medidata, 
com tecnologia americana da 
Digital Equipment Corpora- 
tion e a ABC Sistemas com 
dois projetos, um com tecno- 
logia Hewlett Packard e ou- 
tro com tecnologia da Honey- 


well Bull. 









Monk adere 
à linha Apple 


Apos dois anos e meio dedi- 
cados ao desenvolvimento de 
software aplicativo para a li- 
nha TRS-80, a Monk Microin- 
formática passa agora a atuar 
também na linha Apple. Para 
estes equipamentos, a empre- 
sa acaba de lançar o Data 
Master, sistema gerenciador 
de banco de dados, o SMD — 
Sistema de Mala Direta, o Vi- 
sibank, programa em lingua- 
gem de máquina para cadas- 
tro e controle de lançamentos 
em contas bancárias, Pagrec 
— Controle de Contas a Pa- 


Luiz Alberto de Souza Malafaia, vencedor da promoção 
MICRO SISTEMAS/Micromaa, recebeu o seu prêmio — um 
microcomputador Color 64 com 64 Kbytes de memória e 
mais 64 programas aplicativos — no dia 16 de dezembro na 
sede da loja carioca, localizada na Rua Sete de Setembro, 
92, loja 106. O equipamento e os programas foram ofereci- 
dos pela Indústria de Computadores Novo Tempó Ltda. 
Malafaia,que mora no bairro de Irajá, no Rio de Janeiro, é 
programador de computadores, trabalhando na empresa 
Gura Alimentos e no Inamps. 


gar e a Receber, Redator, sis- 
tema de processamento de 
textos, e o Sistema de Con- 
trole de Estoque Comercial, 
além de vários jogos. 

Para as máquinas compatií- 
veis com o TRS-80, a Monk 
lançou o SCE /| — Sistema 
de Controle de Estoque Indus- 
trial, que apresenta uma novi- 
dade: a impressão de relató- 
rios é feita simultaneamente 
ao uso geral do sistema, dei- 
xando o comando do teclado 
livre para o usuário, mesmo 
com a impressão em anda- 
mento. Esse recurso deverá 
ser implantado ao poucos em 
todos os programas desenvol- 
vidos pela Monk para a linha 
TRS-80. » 


e 





executivos de alto nível. 








CPU,monitor, 2 drives. 
Entregamos em todo Brasil pelo reembolso Varig. 
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É sempre bom ter uma cópia de reserva. Para os usuários da linha TRS-80, 
um utilitário que reproduz programas em fita gravados no formato SYSTEM 





monitor residente na memória 
ROM dos microcomputadores 
compatíveis com o TRS-80 


permite a reprodução de pro- 
gramas gravados em BASIC através de 
comandos simples. CLOAD X, onde X 
é um alfanumérico qualquer identifican- 
do o programa, permite ler uma fita, isto 
é, carregar um programa de nome X na 
memória do micro. Para reprodução de 
um programa, o comando CSAVE X 
transfere o que está residente em me- 
mória para a fita no gravador, atribuin- 
do-lhe o nome X para posterior identi- 
ficação pelo comando CLOAD. É usan- 


Copsys 


Daniel Augusto Martins 








do deste modo estes dois comandos 
simples que se pode fazer a reprodução 
de programas BASIC. 

Já para fitas gravadas com progra- 
mas em formato SYSTEM, como, por 
exemplo, as fitas de jogos escritos em 
linguagem de máquina, utilitários ven- 
didos no mercado e programas produzi- 
dos por montadores (Assemblers) ou 
compiladores, a forma de leitura é dife- 
rente. Para trazê-los para a memória, o 
usuário deve sair do ambiente do inter- 
pretador BASIC usando o comando 
SYSTEM. Este comando informa ao 
monitor residente em ROM que o usuá- 


ro quer executar algum programa pre- 
viamente carregado na memória, ou en- 
tão que ele quer carregar um programa 
a partir do gravador. 

No primeiro caso, o usuário respon- 
de à pergunta *? que o monitor lhe faz 
pressionando a tecla / e o endereço de 
memória onde está a primeira instrução 
de um programa a ser executado. No 
segundo caso, ele responde com um 
nome de, no máximo, seis alfanuméri- 
cos, indicando assim qual dos programas 
em linguagem de máquina da fita ele 
deseja que seja trazido para a memória. 

O formato utilizado na gravação de 


+ q é 
RD 


De a 
A “as 
J 


ado e a mensagem LENDO À leitura tei ar, O mo 


v Aa 
a re ta dr Ps Ada raca de ms 
é: E 
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É PET RT a e 
DEE ea - Es a em o A 


>> ais 


+ E 


a mr 


100 REM PROGRAMA PARA PRODUZIR SALVAGUARDAS DE FITAS 

110 REMnes GRAVADAS EM FORMATO SYSTEM 

120 REMe+e+ ESTE PROGRAMA RODA EM QUALQUER MICRO-COMPUTADOR 
138 REM TOTALMENTE COMPATIVEL COM O TRSBO MODELO 1 NIVEL 11 
148 REMeees DA TANDY CORPORATION 

158 REM DANTEL AUGUSTO MARTINS BSB 14.01.83 

168 CLS:PRINTO4SE,* CARREGANDO O PROGRAMA" 

178 GOSUBESDDO 

180 POKE16S26, 143: POKE1ESD7, 793 K=LUSR(O) 


5240 DATA 47, 2, 62, 69,84, 
5298 DATR ES + 9,32, 66,65; 


298 DATA 1, MS, 18,2,M5, 150,2, 
SS00 DATA 205 , 183, 0, 24,5, 14 ,13,80,17,55,7 
SSB DATA EB, 6. 6. 205, 183, 00,18, 19,16, 049, 7% 
5328 DATA 175 +, 79, MS, 183,00, 254, 60,40,8,754,5 
SS DATA 120 , 202, 77, 00, 195, 153, 00,205, 183, 0,95 
5348 DATA 71 + 205, 183, 00,129, 79, 205,183, 00,18, 64 
SIS DATA 73 , 205, 185, 00, 129,79, 16,A9, 05,18, 18 
5366 DATA BO + 185. 194 , 201, 00, 24, 209, 205, 183, 08, 161 


SOB DATA SORO , 20200, 20720 
5810 DATA 66» ES + B4, 65, 32 
582 DATA TE» 65, 32 32 
SEJ0 DATA 7E + ES, 82 
[o 
7 


naesfgaga 
o 


ggn8SFangsa 


Sa 
Rº88e 


asSSgaaugantasga 


S848 DATA Bá + 65 


- 
- 


SES0 DATA ES + 32 
5868 DATA ES + 8 


171 
87 DATA 79, ES, 


82 
3 
5880 DATA 47, 32 
Ses DATA ES + 79 
5100 DATA ES, 78 , 68 
5118 DATA ES, 0,7 
5128 DATA 32, Ro: 
5130 DATA 68» 69, 
5148 DATA 32 , 48, 
5158 DATA E9, BR, 
5168 DATA 82, TB, 
9170 DATA ES» 82, 
5188 DATA 82 + TB, 


82 
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ra 


Lo) 
MEM Mr. 


gasSangaags 


gauapucÊggnega 


suggaBfgas 


o... 
o. do q 


guenBanas 


asgafa 


UBENSHEHa 
aeagõ 
sgasataga 


programas em linguagem de máquina é 
bastante diferente do formato de um 
programa BASIC (para maiores informa- 
ções, leia o artigo Formato de gravação 
em cassete, MICRO SISTEMAS núme- 
ro 21, junho de 1983). Outra diferença 
é que não existe um comando que per- 
mita a criação de uma salvaguarda de 
uma fita com programa SYSTEM, co- 
mo existe o comando CSAVE para pro- 
gramas BASIC. 


O UTILITÁRIO 
E SUAS VANTAGENS 


O utilitário deste artigo fomece o 
meio de produzir cópias de fita no for- 
mato SYSTEM. Os melhores programas 
de jogos e utilitários são fornecidos em 
fitas gravadas. neste formato, uma vez 
que o uso de linguagem de máquina ou a 
compilação de programas aumentam a 
velocidade de execução. 

As fitas compradas no mercado são 
de preço elevado. Um defeito na fita, 
um descuido qualquer, como, por exem- 
plo, o mau hábito de deixar de rebobi- 
ná-la após seu uso, o envelhecimento da 
fita por exposição a campos magnéticos 
ou a fontes de calor, podem provocar a 
perda irremediável do programa. Como 
este problema já é conhecido há bastan- 
te tempo, alguns fornecedores produ- 
zem seus programas duplicados na mes- 
ma fita. 
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is 


asssãzas 


o ds Ss 04 


gears g 


guuas 


SST DATA 205 +, 183, 00,3%, 26, 793,205, 28, 


gsZasga 
8 = wu 
sas 


uSZeZas 


5458 DATA 192 , 80, 25 


“Base 


5478 DATA 195 , 228, 79 


-- 
2 
Ed | 


SS DATA E , 255 


aos a 


6010 CS=8 


o dd a 


gengnfazeze 


ESUSO NL =". +1B:D0TOESRIO 





Uma solução precária que pode ser 
adotada é fazer uma cópia direta de gra- 
vador para gravador. Contudo, este pro- 
cedimento, além de exigir o uso de dois 
gravadores, tem o inconveniente de re- 
produzir um sinal já distorcido do gra- 
vador, aumentando a possibilidade de 
que a cópia não venha a ter a qualidade 
suficiente para ser lida. Por outro lado, 
o sinal gerado pelo micro é de muito 
boa qualidade. Assim, a melhor solução 
é trazer o programa para a memória e 
reproduzilo usando o próprio compu- 
tador. 

É importante ressaltar, porém, que a 
finalidade dada a este utilitário é de in- 
teira responsabilidade de seu usuário. É 
extremamente importante observar que 
os programas vendidos no mercado são 
protegidos por direitos autorais e é 
proibida a reprodução de fitas com fins 
comerciais. 


OBSERVAÇÕES FINAIS 


Este utilitário reproduz exclusivamen- 
te programas no formato SYSTEM. Al- 
guns formecedores de jogos em cassete 
utilizam o recurso de produzir seus pro- 
gramas em duas partes: uma primeira, 
forçosamente no formato SYSTEM, que 
tão logo é carregada, é lançada, funcio- 
nando como um carregador especial que 
utiliza uma técnica diferente de forma- 
tação na fita, e uma segunda parte, lida 


SS80 DATA 213, 00, 205, 43,0,24,3%, 
5390 DATA 254 , 75, M2, 06,79, H4,71 
5400 DATA 33 +, 128, 68, 17,7%8,79,2%5, 
5418 DATA 1, 205, 18,2,205,132,2,3, 

5420 DATA 126 , 205, 100,2, 5, M,%4, 

S438 DATA 186 + 32, 245, 125, 187, 32,28, 

J440 DATA 195 + 89, 80,33, 128, 60,17,94,7], 
1U8,1,205,43,0, 24, 
S468 DATA 202 , 235, 80, 254,13, 32,244, 05, MB 
105, wá, 2,85, 3,2,11 
5488 DATA 35 +» 21, 6,254, 0,200, 119,5,19,%, 
598 DATA 247 +, 33, 128, 68, 17, 160,79, 205, 192, 80 
5508 DATA 195 , 162, 00, 
9918 DATA 232 + 78, 205, 192,00, 3,64, 60,17,9, 2 
5520 DATA 79, 05, 192, 00, 201, 05, 248,1,195,25, 151 


MS, 20 ,1,3,0,60,17, 186 


READ NL, IN, FISNL=NL+1O 


ES20 FOR!=1TOLB:READ A: CS=C5+:POXE IN A:PRINTASS, As 

ESESO IN=IN+!: TF INDFT THEN RETURN 

ESB NEXT IZREAD SO: CS=05-256*INT(CS/256): IF SO(CS THEN PRINT 
“ERRO NA LINHA “SNL ZEND 


pela primeira, que é então o programa 
propriamente dito. Para estes casos, nos- 
so utilitário não funcionará. Tudo que 
ele conseguirá será apenas reproduzir 
a primeira parte. 

O utilitário foi testado num equipa- 
mento compatível com o TRS-80 Mode- 
lo HI no modo de carregamento em bai- 
xa velocidade (500 bauds) e em um 
TRS-80 Modelo I, ambos trabalhando 
com BASIC nível II. Sob um sistema 
operacional de disco ele não funciona, 
pois, para maior utilização de memó- 
ria, ele é carregado onde normalmente 
deve residir o sistema operacional de 
disco e a extensão do BASIC. 

Um cuidado final a ser tomado por 
quem dispõe de apenas 16 Kb de memó- 
ria é que este utilitário não testa a quan- 
tidade de memória disponível no micro. 
Portanto, se o programa SYSTEM a ser 
reproduzido for muito grande, não se 
conseguirá sucesso na sua reprodução. 
Contudo, não é frequente encontrar jo- 
gos ou mesmo aplicativos que ultrapas- 
sem a faixa de 10 a 12 Kb de memória. 


Daniel Augusto Martins é engenheiro eletrô- 
nico e possui mestrado em Sistemas de Con- 
trole. Trabalha nas Centrais Elétricas do Nor- 
te do Brasil no acompanhamento da implan- 
tação do Sistema de Controle Supervisor da 
Usina Hidrelétrica de Tucuruf. 
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ENGENHARIA 
DE PROGRAMAS 





STAA, A. V., Engenharia de 
Programas, LTC — Livros Técnicos 
e Científicos Editora S. A. 


EE O objetivo deste livro é apre- 
sentar uma sequência harmônica e 
consistente de técnicas e métodos 
que visam à construção econômi- 
ca de programas com elevado níf- 
vel de qualidade. O texto se desti- 
na a pessoas com algum conheci- 


mento de programação e com co- 
nhecimentos rudimentares de es- 
truturas de dados, tais como estu- 
dantes de graduação e programa- 
dores. 

A linguagem de programação 
dominada pelo leitor é irrelevante, 
bem como o computador e o sis- 
tema operacional utilizados. Os 
métodos e técnicas estudados va- 
lem para qualquer linguagem e 
ambiente de programação dispo- 
níveis hoje. Como os computado- 
res tornaram-se ferramentas indis- 
pensáveis para um sem-número de 
aplicações, quer sejam comerciais, 
tecnológicas, comando e controle, 
pesquisa científica ou outras, este 
livro reveste-se de maior impor- 
tância porque é capaz de assegurar 
que programas venham a ser ela- 
borados com elevado nível de 
qualidade. 





GALANTE, T. P.; POW, E.M., 
Inglês para Processamento de 
Dados, Editora Atlas. 


EB Este livro é o resultado de tra- 
balho realizado durante vários 
anos com alunos do Curso de 
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Processamento de Dados, na disci- 
plina Inglês Técnico. Objetiva pre- 
parar estudantes e profissionais de 
Processamento de Dados para o 
entendimento de textos em inglês 
referentes à Informática. 

É essencialmente didático e a 
apresentação da matéria obedece 
a uma sequência natural, que pos- 
sibilita, assim, a introdução gra- 
dual dos termos técnicos mais 
usados em computação. O conteú- 
do de cada unidade é a linguagem 
técnica que mais frequentemente 
aparece em publicações e em ma- 
nuais dessa área, tendo sido inseri- 
dos exercícios que visam a desen- 
volver no leitor a habilidade para 
entendimento de textos. 

As leituras incluídas no final 
de cada unidade abordam temas 
relacionados ao que existe de mais 
moderno no campo da Informática. 
Um glossário de mais de 300 pala- 
vras, com os termos mais usuais 
em computação, e uma lista de 
siglas e abreviações são apresenta- 
dos na parte final, permitindo ao 
leitor a sua pronta consulta quan- 
do estiver lendo o texto, fazendo 
exercícios, ou mesmo revisando as 
unidades. 


GONICK, L., Introdução Ilustrada 
à Computação (com muito 
humor!), Editora Harper & Row 
do Brasil Ltda. Traduzido sob 
iniciativa da Itautec. 


EE A computação ainda é encara- 
da, por muita gente, como algo 
esotérico e complicado, cujos 
princípios estariam numa esfera 
de compreensão acima do que se 
pode alcançar. A fim de contri- 
buir para a mudança dessa posi- 
ção, a Itautec está lançando o li- 
vro “Introdução Ilustrada à Com- 
putação”, traduzido do original 
norte-americano de Larry Gonick. 

Usando a linguagem das histó- 
rias em quadrinhos e incluindo ge- 
nerosas doses de fino humor, Go- 
nick mostra que, desde a pré-his- 


tória, o homem tem a preocupa- 
ção de contar coisas e registrar 
tanto essas contas como os fatos a 
ela relacionados. Em suma, desde 
a Idade da Pedra o homem está 
computando e montando Banco 
de Dados, seja em ossos, tabuletas 
de argila, papiro, papel ou fitas e 
discos magnéticos. 


Com o mesmo humor, o livro 
expõe os conceitos de lógica que 
o computador usa para tomar de- 
cisões segundo as instruções rece- 
bidas e explica os princípios de 
funcionamento da máquina em 
poucas figuras com textos de fá- 
cil compreensão. 


Enfim, é um livro com o qual 
o leigo em Informática poderá ini- 
ciar-se nessa área e os já iniciados 
encontrarão doses adicionais de 
bom humor. 





PEDROSO, E. T.; TEIXEIRA, E. 
R.; GASPAR, L. R.S., Elaboração, 
Análise e Racionalização de 
Formulários, Editora Atlas. 


EB Este texto focaliza um dos 
mais importantes segmentos da 
área de Organização, Sistemas e 
Métodos a : a elaboração, a análise 
e a racionalização de formulários. 
Não pretende, portanto, focalizar 
a referida área como um todo, 
mas sim um de seus mais relevan- 
tes aspectos. A idéia da publica- 
ção foi consequência de pesquisa 
efetuada por seus autores junto a 
alunos de Administração de Em- 
presas de diversas universidades de 
São Paulo e de solicitações de 
outros tantos colegas de profissão. 


Sendo assim, este texto é con- 
siderado um dos primeiros a ser 
escrito no Brasil sobre o assunto. 
Seus autores, profissionais libe- 
rais, somam às suas experiências 
profissionais experiências didáti- 
cas adquiridas em programas de 
treinamento e em cursos regulares 
de graduação em Administração. 
Consequentemente, o texto adota 
uma linguagem clara, simples, 
objetiva e acessível, tanto a profis- 
sionais como a estudiosos da área. 
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MAIS SUCESSO PARA VOCÊ! 


Comece uma nova fase na sua vida profissional. 
Os CURSOS CEDM levam até você o mais moderno ensino 


técnico programado e desenvolvido no País. 


CURSOS DE APERFEIÇOAMENTO 


CURSO DE ELETRÔNICA DIGITAL 
E MICROPROCESSADORES 


São mais de 140 apostilas com informações completas e sempre 
atualizadas. Tudo sobre os mais revolucionário CHIPS. E você 
recebe, além de uma sólida formação teórica, KITS elaborados 
para o seu desenvolvimento prático. Garanta agora o seu futuro 
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CEDM.-20 - KIT 

de Ferramentas. 
CEDM-78 - KIT 
Fonte de Alimentação 
5v/1A. CEDM-35 KIT 
Placa Experimental 
CEDM-74 - KIT 

de Componentes. 
CEDM-BO 
MICROCOMPUTADOR 
Z80 ASSEMBLER. 





h 





- mnna 
e 
- 
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Este CURSO; especialmente programado, oferece os 

fundamentos de Linguagem de Programação que domina o universo 
dos microcomputadores. Dinâmico e abrangente, ensina desde o BASIC 
básico até o BASIC mais avançado, incluíndo noções básicas sobre 
Manipulação de Arquivos, Técnicas de Programação, Sistemas de 
Processamento de Dados, Teleprocessamento, Multiprogramação e 
Técnicas em Linguagem de Máquina, que próporcionam um grande 
conhecimento em toda a área de Processamento de Dados 


KIT CEDM Z80 
BASIC Científico 
KIT CEDM Z80 


BASIC Simples 

Gabarito de Fluxograma 
E-4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 





Métodos novos e inéditos de ensino garantem um aprendizado 

prático muito melhor. Em cada nova lição, apostilas ilustradas 

ensinam tudo sóbre Amplificadores, Caixas Acústicas, Equalizadore 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Cápsulas 
e Fonocaptadores, Microfones, Sonorização, Instrumentação de Medidas 
em Audio, Técnicas de Gravação e também de Reparação em Áudio 
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CEDM-1 - KIT de Ferramentas. CEDM-2 - KIT Fonte de Alimentação 
+ 15-15/1A. CEDM-3 - KIT Placa Experimental 

CEDM-4 - KIT de Componentes. CEDM-S - KIT Pré-amplificador 
Estéreo. CEDM.S - KIT Amplificador Estéreo 40w 


Você mesmo pode desenvolver um ritmo próprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado fácil. E 
para esclarecer qualquer dúvida, o CEDM coloca à sua disposição uma 
equipe de professores sempre muito bem acessorada. Além disso, você 
recebe KITS preparados para os seus exercícios práticos. 

Ágil, moderno e perfeitamente adequado à nossa realidade, os CUR- 
SOS CEDM por correspondência garantem condições ideais para o seu 
aperfeiçoamento profissional. 


DE OS GRÁTIS ESSES 


Você também pode ganhar um MICROCOMPUTADOR. 


Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 
Em poucos dias você recebe nossos catálogos de apresentação. 


CURSO DE APERFEIÇOAMENTO POR CORRESPONDÊNCIA 


que 
l 
| 
| 
| 
| 
Solicito o mais rápido possível informações sem compromisso sobre o 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 





Avenida São Paulo, 718 - Fone (0432) 23-9674. 
CAIXA POSTAL 1642 - CEP 86100 - Londrina - PR 
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Tamanho não é documento. É o que provam os micros da linha Sinclair: simples 
e baratos, mas poderosos, eles já ensinaram muita gente a programar 








Os pequenos 





notáveis 





Os microcomputadores 
revolucionaram a 
Informática ao permitirem 
— devido ao seu baixo custo 
e facilidade de operação 

— o uso a nível individual e 
por pessoas leigas no 
assunto. O mérito, contudo, 
de tornar o computador um 
instrumento realmente 
popular, acessível a grandes 
segmentos da sociedade, 
cabe ao inglês Clive Sinclair, 
que projetou e fabricou o 
ZX80 e, posteriormente, o 
ZX81, este considerado uma 


ZX80. o pai de todos 





obra-prima no gênero. 
Com preço abaixo de 

US$ 100, um manual 
auto-explicativo que 
permitia a qualquer pessoa 
escrever programas 
razoavelmente complexos 
em BASIC, e uma variedade 
de funções que pouco ou 
nada ficavam a dever aos 
sistemas de maior porte, 
esses equipamentos logo 
transformaram-se num 
sucesso de vendas na 
Inglaterra, Estados Unidos 
e, daí, no resto do mundo. 








o Brasil, a família Sinclair serviu de 
espelho a produtos de cinco empresas: 


Microdigital (TK8B0, TK82-C, TK83 e 
TK85), Prológica (NE-Z80, NE-Z8000 e 
CP-200) e, mais recentemente, CDSE (Apply 
300), Engebrás (AS-1000) e Ritas do Brasil 
(Ringo). 

Os primeiros a serem lançados foram, res- 
pectivamente, o NE-Z80 e o TK 80. Virtuais 
réplicas do ZX80 em hardware e software, esses 
equipamentos tiveram vida breve, pois logo 
foram substituídos pelos NE-Z8000 e TK82-C, 
que emulavam o ZX81 Essa emulação, contu- 
do, dava-se apenas a nível de software, uma 
vez que em hardware essas máquinas permane- 
ciam basicamente um ZX80 adaptado para 
rodar o sistema operacional do ZX81. Essas 
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adaptações, aliás, contrariavam bastante as 
boas técnicas de projeto de circuitos, pois 
eram cheias de jumps (com o consequente 
excesso de fios), integrados com pernas corta- 
das, etc. 

Com um circuito melhor acabado que o 
82-C, o TK85, quando saiu, era o Sinclair na- 
cional de maior memória interna, com uma 
versão de 48 Kbytes RAM, e trazia ainda 
como novidades algumas sub-rotinas para gra- 
vação/recuperação em fita em alta velocidade. 

O CP-200, que chegou às lojas aproxima- 
damente na mesma época que o TK85, no 
início do ano passado, apesar de ser construí- 
do com tecnologia TTL e ter em comum com 
o ZX81 apenas o BASIC Sinclair, representou 
uma evolução em termos de projeto, uma vez 


que apresentava um circuito bem desenhado, 
sem as adaptações que caracterizaram os pri- 
meiros modelos tanto da Prológica quanto da 
Microdigital 

O TK83, lançado em outubro último, foi o 
primeiro ZX81 legítimo, cujo circuito é cons- 
tituído de apenas quatro chips, um deles sen- 
do a famosa ULA, projetada por Clive Sinclair 
para cumprir as funções de 18 integrados, os 
quais substituiu. 

Já os micros mais recentes, como o Apply 
300 e, principalmente, o AS-1000 e o Ringo, 
seguem uma nova tendência do mercado brasi- 
leiro de pequenos equipamentos, que consiste 
em oferecer produtos de baixo preço compa- 
tíveis com o BASIC Sinclair, mas que apresen- 
tam possibilidades de expansão capazes de 
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lhes proporcionar um desempenho antes pos- 
sível somente aos sistemas de maior porte. 


UCP E MEMÓRIA 


odos os equipamentos nacionais, a 
i exemplo do Sinclair original, utilizam 
o microprocessador Zilog Z80A, com 
clock de 3,25 MHz. É uma velocidade razoá- 
vel para um micro de 8 bits, mas nos equipa- 
mentos Sinclair ela fica um pouco prejudica- 
da porque, devido ao pequeno número de in- 
tegrados, a UCP torna-se diretamente respon- 
sável por toda a supervisão e controle do siste- 
ma, além da sua tarefa básica, que é o proces- 
samento lógico-aritmético. 

Em termos de memória, os nossos equipa- 
mentos encontram-se em posição bastante 
confortável, seja em relação à família Sinclair 
ou a outros micros, destacadamente os TRS. 
Os de menor capacidade — TKs 82-C e 83 — 
vêm de fábrica com 2 Kbytes RAM, que é 
pouco mas é o dobro da capacidade standard 
do guru inglês, o ZX-81, que vem de fábrica 
com apenas 1 K. E todos — à exceção somen- 
te do CP-200, que já vem de fábrica com 16 K 
RAM e não admite expansões — podem che- 
gar até os 48 K RAM. 


TECLADO 


s teclados são um dos pontos que 

mais caracterizam esses equipamentos, 

em relação aos sistemas maiores. A uti- 
lização de um teclado profissional, como os 
que encontramos nos Apples e TRS-80, torna- 
se inviável nos equipamentos de linha Sinclair 
basicamente por dois motivos: o preço (um 
bom teclado eletrônico profissional pode 
custar tanto ou mais que o preço final de um 
desses micros) e o tamanho, incompatível 
com as dimensões desses equipamentos. 


Essas limitações levam os fabricantes a 
adotarem tecnologias mais simples e baratas 
O mais simples desses teclados é o de membra- 
na no qual a matriz de chaves que o constitui 
é recoberta por uma película de material plás- 
tico com as “teclas” impressas. Sua grande 
vantagem é a durabilidade pois, por ser selado 
e não ter partes móveis, não é prejudicado pe- 
la poeira e não tem desgaste mecânico. Uma 
variação mais sofisticada desse tipo é o tecla- 
do de bolha, que incorpora, entre a chave e a 
membrana, uma calota de material flexível 
que, quando pressionada, fecha o contato. 
Há ainda os teclados tipo calculadora — como 
o que equipa o CP-200 —, os de borracha 
condutiva e os do tipo “chicletes”, que os 
fabricantes preferem chamar pelo nome mais 
elegante de “'semi-profissional”. 


Do ponto de vista operacional, os teclados 
de membrana são os mais lentos e menos con- 
fiáveis, requerendo grande atenção no seu ma- 
nuseio. O usuário de um micro equipado com 
esse tipo de teclado desde cedo aprende que 
deve digitar com cuidado, com a ponta do 
dedo e no centro da tecla. E nunca é demais a 
precaução de dar uma olhadinha no vídeo 
para ver se o caráter digitado está mesmo lá. 
Há também quem prefira digitar os seus pro- 
gramas em FAST. Assim, o tremor da tela, 
percebido de rabo-de-olho enquanto o usuário 
se concentra no teclado, é uma garantia de 
que o caráter entrou. Além da fadiga visual 
(atenção dividida entre teclado e vídeo) e dos 
braços e dedos (que devem permanecer ten- 
sos), há ainda um stress psicológico causado 
por não se sentir no tato — ou mesmo auditi- 
vamente — o.funcionamento das teclas, cansa- 
ço esse que cresce proporcionalmente ao ta- 
manho do programa a ser digitado. 


No teclado de bolha (utilizado no 
AS-1000), apesar de suas limitações, essa si- 
tuação melhora um pouco. A começar pela 
sensação táctil de se estar realmente pressio- 
nando uma tecla e pelo “click” que se ouve 
ao fechar o contato. A confiabilidade aqui é 
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A obra-prima de Clive Sinclair: o ZX81 


maior, e a rapidez de operação acentua-se, à 
medida que diminui o cansaço. 

A eficiência do teclado do TK85, por sua 
vez, não é tão grande quanto sugere o seu 
bonito design. As teclas são grandes e a legibi- 
lidade é bastante boa, mas há um problema: se 
se não forem pressionadas exatamente no cen: 
tro, as teclas tendem a prender embaixo, obri- 
gando o operador a puxá-las de volta para a 
posição normal, o que compromete a veloci- 
dade da digitação. De maneira geral, contudo, 
esse teclado é mais rápido e confortável que o 
de membrana. 

Já o teclado tipo calculadora usado no CP- 
200 é bastante confiável e eficiente. Ele não 
prende é muito difícil o computador não va- 
lidar o caráter de uma tecla pressionada (salvo 
em raros casos de muito má operação) e pro- 
porciona ao usuário a agradável sensação de 
estar usando um teclado de verdade, além de 
tornar mais rápida a digitação. A única restri- 
ção mais significativa que se pode fazer a esse 
tipo de teclado refere-se ao tamanho das 
teclas, muito pequeno. 

Quanto aos modelos tipo chicletes, apresen- 
tam rapidez e confiabilidade semelhantes ao 
do tipo calculadora, com a vantagem adicional 
de que as teclas são maiores. Esse teclado é 
utilizado por dois micros nacionais: o Apply 
300 e o Ringo. 


VÍDEO 


magens em preto e branco, em baixa reso- 
fisco. com saída apenas para TV comum 

via modulador RF, são as características 
básicas de vídeo de todos esses equipamentos. 
Todos têm 22 linhas (mais duas reservadas 
para mensagens de status do sistema, e às quais 
o usuário normalmente não tem acesso) por 
32 colunas e a baixa resolução deve-se ao fato 
de que nos equipamentos de linha Sinclair só 
se pode lidar com caracteres inteiros, não sen- 





NE -Z8000 


Primeiro descendente nacional, 
o NE-Z80 durou pouco 


do possível manipular os pontos que com- 
põem esses caracteres (para uma idéia mais 
detalhada a esse respeito, veja o artigo Arte e 
técnica na tela do computador, MS nº 27, 
pág. 10). Essas limitações, contudo (e como 
mostra o artigo citado), não impedem que se 
faça muita coisa em termos de desenhos e grá- 
ficos. E para os mais exigentes, já começam a 
ser lançadas na praça placas de circuito que 
liberam os bits dos caracteres, permitindo, 
assim, manipular mais de 40 mil pontos na 
tela. 

A utilização de modulador de RF prejudi- 
ca um pouco a qualidade da imagem (muito 
instável, sobretudo nos Prológica NE-Z8000 
e CP-200) e a instalação de vídeo direto, inje- 
tando o sinal diretamente no amplificador de 
vídeo da TV, sempre traz bons resultados. O 
modo de operação do vídeo — normal ou re- 
verso — é outro aspecto que merece destaque. O 
fundo branco (característico dos TKs) cansa 
mais a vista e prejudica a leitura do que o fun- 
do preto (dos Prológica), por permitir que osci- 
lações da rede elétrica e outras interferências 
passem a fazer parte da imagem. A solução 
para esse problema é instalar uma chave inver- 
sora de vídeo que permita ao usuário escolher 
o modo de operação que julgue mais conve- 
niente Ambas essas alterações — vídeo direto 
e chave inversora — são fáceis de fazer e não 
custam muito, mesmo quando realizadas 
numa oficina de assistência técnica. No Ringo 
— no modelo standard apresentado na Ill Fei- 
ra de Informática — a inversão de vídeo é feita 
através de uma tecla específica para esse fim. 


DESIGN E ACABAMENTO 


m termos de visual os equipamentos 
Espere: melhoraram bastante desde os 
tempos heróicos do NE-Z80 e do TK8O0. 
Estes, juntamente com os seus sucessores dire- 


tos — NE-Z8000 e TK82-C —, mais pareciam 





TK80: também teve vida breve 
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protótipos de laboratório, de linhas toscas e 
feias, do que propriamente produtos indus- 
triais vendidos ao público. O CP-200, lançado 
em outubro de 1982 (apesar de só chegar às 
lojas meses depois), foi o primeiro desses egui- 
pamentos nacionais a realmente ter uma apa- 
rência de computador. Gabinete moldado em 
poliuretano, linhas suaves e harmoniosas e cor 
discreta, além da fonte interna que diminuiu o 
numero de conexões e de fios dispersos na 
estação de trabalho fizeram do CP- 200 um 
verdadeiro produto “acabado. Seu único peca- 
do aparente: o tamanho, exageradamente 
grande para um micro de sua classe, e que O 
torna possivelmente o maior Sinclair do 
mundo. 


Em seguida veio o TK85, com um gabinete 
bem semelhante ao do Spectrum (apesar de 
nada ter a ver com esse modelo em termos ele- 
trônicos e operacionais — veja quadro sobre 
Clive Sinclair). É talvez o mais bonito dos 
micros nacionais dessa classe: dimensões redu- 
zidas, teclas grandes e legíveis, muito leve e 
fácil de transportar. Não incorpora, porém, a 
fonte de alimentação, que é a mesma dos 
outros TKs. 


Já o TK83 veio para corrigir as falhas esté- 
ticas do modelo 82-C, o qual substitui. É um 
equipamento de linhas simples, mas agradáveis 
de ver. Em vez do preto fosco do 82-C, um 
suave champagne. Um teclado bem posiciona- 
do; peso e dimensões reduzidos. 


Quanto ao Apply 300, ao AS-1000 e ao 
Ringo, se não chegam a impressionar pela 
beleza do seu design, não desagradam ao olhar. 
As linhas são bastante simples e despojadas, 
sem grandes variações no relevo do gabinete, 
cores neutras, com os teclados ocupando a 


maior parte do espaço disponível na parte 
superior do gabinete. As fontes e as expansões 
de memória localizadas internamente ajudam 
a reforçar a funcionalidade desses aparelhos. 


POUCO SOFTWARE 


rogramas —de base, utilitários e aplicati- 
P: — de boa qualidade e com variedade 

de fornecedores são artigo em grande fal- 
ta no mercado nacional de equipamentos com 
lógica Sinclair. Apesar de a situação do soft- 
ware não ser tão dramática quanto a do hard 
ware — onde não existe praticamente nada em 


«termos de periféricos possíveis de serem aco- 


plados a esses equipamentos —, o nosso pro- 
gresso nesse campo encontra-se inexplicavel- 
mente (pois há mais de 100 mil dessas máqui- 
nas instaladas no país) na “idade da pedra”. 

Uma rápida olhada nos anúncios das revis- 
tas norte-americanas pode dar-nos uma idéia 
das possibilidades de uso dessas máquinas em 
aplicações ditas sérias num sem-número de 
campos de atividade Esses programas incluem: 

e Bancos de dados tipo Pro-File; 

e Processadores de texto; 

e Aplicações de matemática, física, astro- 
nomia etc.; 

e Contabilidade, controle de estoque, fo- 
lha de pagamento, mala direta, gerência 
financeira, análise de investimentos em Bolsa 
de Valores, controle de vendas, cálculo de 
fluxo de caixa; 

e Histórico médico; 

e Planejamento e controle de campanha 
publicitária; 

e Compiladores de diversas linguagens; 

e Uma variedade de programas utilitários; 


“E alguns aplicativos até certo ponto 
curiosos, como aquele que exercita nas pes- 
soas o conhecimento da Bíblia, o curso para 
tornar o usuário um campeão nas mesas de 
Blackjack, nos cassinos, ou ainda aquele 
outro, “cientificamente projetado” para o 
cálculo de chances de vitória em corridas de 
cavalos. 

Praticamente nada disso existe no Brasil. 
Ninguém desenvolve e nem os piratas, sempre 
tão ativos, mostram-se capazes de oferecer 
bons produtos, mesmo que “traduzidos”. A 
pirataria, aliás, tem-se constituído num ele- 
mento inibidor da produção de bom software 
para esses equipamentos, uma vez que muita 
gente boa, com capacidade para desenvolver 
ótimos programas não o fazem (ou, quando 
fazem, não divulgam), certos de que o seu 
trabalho irá remunerar outros bolsos mais 
espertos 

Se esse receio, por: um lado, tem o seu 
fundamento, por outro é bom não esquecer 
que uma marca de software que consiga fir- 
mar no mercado uma imagem de seriedade e 
qualidade sempre irá desfrutar junto ao consu- 
midor de uma confiança maior do que aquelas 
fitas com capa em xerox e sem documentação 
alguma vendidas em muitas lojas por esse 
Brasil afora. E algumas empresas já descobri- 
ram e estão aplicando uma fórmula para con- 
tra-atacar os piratas: produtos de boa qualida- 
de (bons programas, gravados em equipamen- 
to profissional, bem documentados e com aca- 
bamento realmente industrial) a baixo preço e 
vendidos em larga escala. 

Uma dessas empresas é a JVA Microcom- 
putadores Ltda., software-house carioca que 
produz programas para Sinclair sob a marca 
Ciberne. José Eduardo S. Neves, diretor da 


Software para O spasrapudaddes À 


Só há uma solução inteligente! 


BIBLIOTECA BRASILEIRA DE SOFTWARE 


Todas as categorias de Software 


Uso Caseiro 
Comerciais 
Gráficos 


E..., mais de 4000 originais 


TIE 


que você pode retirar 
e levar para 
sua casa ou 


empresa para 
usá-lo à vontade. 


Você pode consultar pessoalmente os catálogos de Software ou solicitar informações pelo Correio. 
Av. Brigadeiro Faria Lima, 1390 - 8º Andar - Cj. 82 - CEP 01452 - Tels.: (011) 814-0882, 813-6407 e 210-1251 - São Paulo - SP 


Para os principais TRS80 Mod. III, k 
micros do mercado: UNITRON, MAXXI, í 
TK82, TK83, TK8S5, M ho, Ê 
TIMEX/SINCLAIR, Apple e Similares, ú 
CP200, CP300, CP500, Sistema 700 e Superbrain. 2 


Educacionais 
Profissionais 
Científicos 


MICRO SISTEMAS, fevereiro/84 






ss e e e e e era 


o 65 des dr ds 0 do do Oo Cm 
1 
o tl TTT 
e o de Cm Cl Cm C% mm mm 


Design dos primeiros TK82-€ 


TEB2€ 


ss 8 Cs 6. o 08 0 e ca ca 
ee os 8 68 08 08 Ta 0a ca ta 
enerneanmaa 
e a ca cs a ca ca cam mm 


JVA, fala sobre alguns problemas que afetam 
a sua empresa e, de resto, diversas outras fir- 
mas que operam de maneira semelhante no 
setor. 

As software-houses, queixa-se Eduardo, 
enfrentam dois grandes obstáculos ao desen- 
volvimento do seu trabalho. De um lado, ex- 
plica ele, encontra-se a atitude dos fabricantes 
de hardware que ''escondem todas as informa- 
ções sobre os equipamentos. Não dão detalhes 
técnicos prá ninguém: é mais fácil conseguir as 
informações na Inglaterra”, onde se localiza a 
Sinclair 

A outra dificuldade reside no fato de que 
“as próprias lojas pirateiam o que o pessoal 
faz”, e quando a software-house negocia a 
comercialização dos seus programas com essas 
empresas, “não se sabe nunca se se está lidan- 
do com um amigo ou com um inimigo”. 

Nos Estados Unidos, onde os fabricantes 
não fazem segredo sobre suas máquinas, as 
grandes produtoras de soft combatem os pira- 
tas com a rapidez: após uma campanha publi- 
citária maciça para despertar o interesse, lan- 
çam o produto em tiragens astronômicas por 
todo o país e, antes que as cópias proliferem, 
já receberam de volta, com lucro, o investi- 
mento feito. Enquanto isso, novos programas 
vão ficando prontos para ser comercializados 
da mesma forma. 

Já no Brasil é difícil fazer isso, tanto pela 
reduzida escala do mercado, quanto pela pe- 
quena capacidade financeira das empresas, 
que não podem fazer uma quantidade muito 
grande de cópias e distribuí-las em âmbito 
nacional num curto espaço de tempo. 

A falta de recursos para manter equipes de 


para o desenvolvimento de bom software na- 
cional. A solução encontrada por diversas des- 
sas firmas para manter a sua presença no 
mercado com uma variada linha de produtos 
tem sido a de traduzir programas estrangeiros, 
procurando melhorá tos e adaptá-los à nossa 
realidade e, sempre que possível, acrescentar 
programas desenvolvidos aqui. 

Quanto à pirataria, as soft-houses vêm pro- 
curando conscientizar o usuário das vantagens 
de adquirir produtos bem-feitos e com garan- 
tia, enquanto oferecem uma margem maior de 
comissão aos revendedores. 

Os jogos ainda se constituem na esmagado- 
ra maioria dos softs vendidos, mas já come- 
çam a surgir outros tipos de programas, so- 
bretudo utilitários, tais como renumerador de 
programas, Assembler/Disassembler, rotinas 
para gravação em alta velocidade, rotinas de 
SCROLL, etc. 

Um ponto curioso refere-se aos fabricantes 
de micros.. Ao contrário do que dizem os 
usuários, a maioria dos fabricantes considera 
satisfatória — quantitativa e qualitativamente 
— à oferta de programas disponíveis no mer- 
cado brasileiro. Ricardo Tondowski, da Micro- 
digital, chega a afirmar que na Europa nin- 
guém tem software para equipamentos de 2 
Kbytes, em termos de qualidade e quantidade, 
como no Brásil. Wagner Codonho, da Ritas, 
discorda desse ponto de vista e diz que a falta 
de soft levou a sua empresa a produzir cartu- 
chos de programas Esses cartuchos contêm 
programas gravados em ROM e funcionam 
como uma espécie de expansão de memória, 
bastando conectá-los ao micro para executar 
os programas. 





alto nível (e, portanto, bem pagas) constitui- 
se, segundo essas empresas, noutra dificuldade 


A Microdigital atua na produção de soft- » 


TK82-C: sem dúvida, o mais vendido ware através de uma'empresa associada, a Mul- q, 





COMPUTERLAND NÃO VENEE SÓ O MICRO.VENDE TAMBÉM 
O QUE FAZ O MICRO FUNCIONAR: SOFTWARE APLICATIVO. 





Para fazer um micro funcionar, não basta aproveitar uma oferta de 
liquidação e uma tomada na parede. O micro que você compra na 
eriand vem equipado com esses Ítens: 
1 - Computeriand Systems: um departamento que garante a você o 
maior número de opções em software aplicativo da praça. 


2 — Assessoria especializada para expansão e integração de pefiféricos. 


3 - Garantia de Assistência Técnica Gratuita por 1 ano; é só você exigir 
seu Certificado de Garantia Computeriand no ato da compra. 

Esses itens não são opcionais: já estão incluídos no preço. Mesmo 
nas ofertas especiais que anunciamos nos jornais de domingo. 
Computerland aceita todos os cartões e abre seu crédito pelo telefone. 
Ligue pedindo um representante técnico em seu escritório. 


Depois da Computerland, pagar para ficar sozinho com um micro, 
realmente, é o pior negócio do mundo. 
Matriz: São Paulo — Av. Angélica, 1.996 — Tel.: (011) 231-3277 
Telex: (011) 36271 — Filial: Ibirapuera — Av. dos Imarés, 134 
Tels.: 531-4498/531-5197 — Filial: Campinas — Av. Barão do Itapura, 917 
Teis.: (0192) 32-4330/31-8498 — Filial: Rio — Praia do Botafogo, 228 
lj. 114 Ed. Argentina — Tel.: (02 .) 551-8942 
Abertas até às 20:00 hs. Estacionamento próprio. 
Entregamos em todo o Brasil pelo reembolso Varig-Vasp. 


Es Computerland 
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tisoft (que substituiu a antiga marca Micro 
soft), enquanto que as demais (inclusive a 
Ritas, também produtora) mostram-se interes- 
sadas em credenciar software-houses para o 
desenvolvimento de programas. 


PERIFÉRICOS 


respeito dos periféricos para equipa- 

mentos Sinclair, há que se fazer a dis- 

tinção entre as possibilidades de aco- 
plamento, que são praticamente ilimitadas — 
isto é, com a devida interface um micro de 
linha Sinclair aceita qualquer periférico que 
qualquer outro computador possa aceitar, 
resguardadas, naturalmente, as compatibilida- 
des de porte do equipamento (não se pode, 
por exemplo, pendurar um disco rígido de 
300 MB num TK...) — e as opções disponí- 
veis no mercado brasileiro que, no momento, 
praticamente inexistem. 

Para se ter uma idéia do que já é comercia- 
lizado no mercado norte-americano, basta dar 
uma outra olhadela nas revistas especializadas 
de lá. Tomemos como exemplo a revista Sync, 
voltada para os usuários desses equipamentos. 
Em sua edição de novembro/dezembro 1983 
vemos anúncios dos seguintes produtos: 

e Sistemas para processamento de texto 
similares ao famoso Word Star, com reforma- 
tação automática de parágrafos, controle ple- 
no de cursor e caracteres ASCII maiúsculos e 
minúsculos, entre outras facilidades; 

e Teclados dos mais variados tipos, quanti- 
dade de recursos e preços; 

e Diversos racks para embutir o compu- 
tador, instalar teclados e expansões; 

e Acionadores de disquetes de 5 1/4'', com 
respectivas interfaces; 
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e Interfaces para CP/M; 

e Placas para alta resolução, som e até ge- 
ração de cores; 

e Interfaces analógico/digital-digital/analó- 
gico (AD/DA) para aquisição de dados e con- 
trole de processos; 

e Modems e demais equipamentos para 
comunicação de dados; 

e Sintetizadores de voz; 

e Geradores programáveis de caracteres; 

e Placas de memória RAM não volátil para 
armazenamento permanente de dados e sub- 
rotinas; 

e Placa para uso de caneta de luz; 

e E mais uma série de outros aparelhos que 





A vitrine de soft da Microdigital, 
à época do TK82€ 


permitem, entre outras coisas, depurar e que- 
brar a proteção de programas, melhorar a lei- 
tura/gravação de fitas, conectar diversos peri- 
féricos etc. 

No Brasil, a situação ainda é bem diferen- 
te. Praticamente inexistem produtores inde- 
pendentes desses periféricos e os fabricantes 
dos micros pouco fazem nesse sentido. Há 
também os produtos-fantasmas, que só exis- 
tem nos anúncios coloridos, nunca nas prate- 
leiras das lojas. 

Quanto aos produtores independentes, 
uma pesquisa nos mercados de Rio e São Pau- 
a detectou apenas os dispositivos de auxílio 

leitura/gravação de fitas cassete Tig 
pesa (Crê 18 mil), da Tigre, e CMS/ZX 
da Polimicro, e as placas da  Tplak: 
IOPLAK (para controle de aparelhos externos 
— Cr$ 60 mil), BIPLAK (placa de bip — 
Cr$ 50 mil), CARAPLAK (geradora de carac- 
teres — Cr$ 82 mil ) e PLAKMÃE (para cone- 
xão de periféricos — Cr$ 45 mil). Fora isso, 
o engenheiro Bernhard Wolfgang Schôn, de 
São Bernardo do Campo, instala hardware de 
caracteres especiais por Cr$ 25 mil, enquan- 
to que, em Porto Alegre, a Digital Compo- 
nentes Eletrônicos vende placas para alta reso- 
lução. 
Os equipamentos mais novos (Apply 300, 
AS-1000 e Ringo) já oferecem opção de saída 
para impressora serial ou paralela; a Prológica 
vincula a interface paralela à compra da im 
pressora P-500 (Cr$ 1 milhão 400 mil), de sui 
fabricação e a Microdigital, após o fiasco da 
TK-Printer. muito anunciada, mas que não 
chegou a ser produzida, promete colocar no 
mercado uma interface paralela para o TK-85. 

Os periféricos oferecidos pelos fabricantes, 
de acordo com questionário distribuído entre 
essas empresas por MICRO SISTEMAS, são os 
seguintes: 

— Prológica (CP-200): Joy Control (con- 
trolador de jogos, vendido a Cr$ 35 mil), pla- 
ca de alta resolução (Cr$ 210 mil); 

-— Ritás (Ringo): Sintetizador de Som 
(Cr$ 40 mil), Interface Paralela Centronics 


(Cr$ 40 mil), Interface para Modem (Cr$ 40 
mil), Gravador de EPROM (Cr$ 80 mil) e In- 
terface para Tape Deck com Ultra Fast 
(Cr$ 40 mil), 

— Engebrás (AS-1000): Interface AS-100 

(Cr$ 75 mil), Módulo de Expansão de Memó- 
ria de 16 K RAM (Cr$ 60 mil), Speed File de 
1 MB (Cr$ 1 milhão 650 mil), Joystick (Cr$ 
15 mil). 
— Microdigital (TKB3 e TK85): Expansões de 
memória RAM de 16 K (Cr$ 69 mil 850) e 
64 K (159 mil 850), ambas para o YK 83. 
Quanto ao Joystick, não estava sendo produ- 
zido à época do fechamento dessa edição, es- 
tando previsto para o início deste ano o lan- 
çamento de um novo modelo. 

O periférico mais utilizado com esses 
equipamentos é, no entanto, o gravador casse- 
te, para armazenamento e recuperação de pro- 
gramas. E é o gravador, também, que geral- 
mente traz as maiores dores de cabeça para os 
usuários, sobretudo os novatos. 

O bom desempenho do gravador depende 
muito das condições de funcionamento e de 
regulagem do aparelho, bem como da familia- 
ridade do usuário com a sua operação. A lim- 
peza periódica das cabeças com cotonetes 
embebidos em álcool (tomando-se cuidado para 
deixar secar bem antes de utilizar o equipa- 
mento novamente) e a manutenção da regula- 
gem correta de azimute (ângulo de incidência 
da cabeça sobre a fita) são duas providências 
fundamentais, de acordo com usuários expe- 
rientes. 

É mais fácil gravar que recuperar progra- 

mas porque a maioria dos gravadores moder- 
nos tem ajuste automático de nível de grava- 
ção e os computadores, antes de soltarem o 
programa, enviam um sinal para que o grava- 
dor ajuste o nível. Mas mesmo assim podem 
ocorrer problemas, difíceis de detectar e que 
só serão sentidos na hora do carregamento. 
Isso acontece quando a cabeça apagadora não 
está funcionando bem e deixa na fita vestígios 
da gravação anterior que se misturam ao novo 
programa. Esses ruídos, indistingu íveis ao ou- 
vido, confundem o computador que, então, 
não consegue carregar o programa, deixando 
no usuário a impressão de que o problema é 
de carregamento, quando na realidade é de 
gravação. 
No carregamento de programas, um dos 
pontos críticos consiste em identificar com 
precisão o melhor volume de saída do sinal. 
Se for muito baixo, o computador não conse- 
gue captar o programa; caso esteja muito alto, 
ou o computador não consegue distinguir as 
partes silenciosas das sonoras, em razão do ele- 
vado nível de ruído, ou então o programa será 
distorcido pelo excesso de sinal. A esse respei- 
to, não há fórmulas prontas: o ajuste ideal de- 
verá ser procurado pelo processo de tentativa 
e erro, e o usuário iniciante poderá “apanhar” 
um bocado até descobrir o nível certo. 

Ainda de acordo com os especialistas con- 
sultados, a fita comum /ow-noise de boa quali- 
dade presta-se perfeitamente ao uso com esses 
micros, sendo dispensável, portanto,a utiliza- 
ção de fitas especiais, mais caras e às vezes até 
prejudiciais aos gravadores comuns, que não 
foram projetados para operar com elas. Deve- 
se também usar as fitas de curta dura- 
ção (que, por serem mais leves, possibilitam 
manter uma rotação mais uniforme) com 
poucos programas gravados, de preferência 
um só. Dessa forma, a fita será menos utiliza- 
da, diminuindo o seu desgaste e, em caso de 
defeito, perde-se apenas um programa. Quem 
quiser uma segurança maior, pode gravar o 
mesmo programa várias vezes na mesma fita, 
precavendo-se contra variações ocorridas em 
trechos da fita e que obrigariam o usuário a 
ter que digitar todo o programa novamente. 

Quanto ao tipo de gravador, o mais usado 
em todos os micros nacionais é, sem dúvida, o 
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National com contador de fita (Cr$ 60 mil), 
que permite localizar com rapidez o programa 
desejado. Há também quem use tape-decks, 
equipamentos mais sofisticados e caros, e 
também gravadores do tipo microcassete. 


ASSISTÊNCIA CENTRALIZADA 


é em geral centralizada nas fábricas e 

mesmo no caso da Prológica, que cre- 
dencia oficinas autorizadas em todo o País, 
essa descentralização não vale para o CP-200 
na capital de São Paulo. 

Entre as outras empresas, a centralização 
tem origem numa desconfiança quanto à capa- 
cidade tecnica ou mesmo a idoneidade das 
possíveis candidatas a oficinas autorizadas. Se- 
gundo Ricardo Tondowski, assessor da direto- 
ria da Microdigital, “não credenciamos ofici- 
nas porque queremos manter a imagem do 
nosso produto” e, por isso, a empresa, para 
descentralizar, optou pela abertura de postos 
próprios de assistência técnica em diversas 
capitais brasileiras. Os dois primeiros — Rio de 
Janeiro e Porto Alegre — já estão funcionan- 
do, estando prevista a abertura de postos se- 
melhantes em Brasília, Belo Horizonte, Recife 
e Belém. Nas outras cidades, mantém-se o 
esquema tradicional de enviar os TKs em ma- 
lotes para a fábrica. 

Também de malote viajarão para o Rio de 
Janeiro os AS-1000, da Engebrás, que por- 
ventura apresentarem problemas. Jorge Luiz 
de Andrade Lins, presidente da empresa, ex- 
plica que vai centralizar na fábrica o conserto 
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dos computadores para poder ter uma idéia 
mais direta dos defeitos que ocorrem nos 
equipamentos. Ele não descarta a possibilida- 
de de, futuramente, vir a credenciar oficinas 
autorizadas, mas essas serão escolhidas a dedo 
e seus técnicos terão que passar por um treina- 
mento intensivo na fábrica. 

A Ritas do Brasil, fabricante do Ringo, é 
ainda mais rígida nesse aspecto. Conforme diz 
Wagner Codonho, gerente comercial, a empre- 
sa não pretende credenciar firmas de assistên- 
cia técnica e mesmo que algum dia venha a 
fazê-lo, “a idéia é que dentro dessas oficinas o 


responsável pelo conserto de nossos equipa- 


mentos seja um funcionário nosso. Essa preo- 
cupação, esclarece, deve-se em grande parte ao 
fato de que em sistemas de eletrônica há mui- 
ta coisa em que se pode quebrar o galho e não 
consertar realmente, e a Ritas não quer correr 
esse risco. “Além disso”, acrescenta, ““acha- 
mos que o número de máquinas que poderão 
voltar para assistência é mínimo”. 

A esse respeito, aliás, fabricantes, técnicos 
independentes e usuários consultados concor- 
dam que esses equipamentos — talvez por te- 
rem muito menos componentes que os micros 
de maior porte — apresentam um baixo índice 
de problemas técnicos, sobretudo tendo em 
vista o número de máquinas em funcionamen- 
to no mercado. A maioria dos problemas apre- 
sentados pelos equipamentos, enfatizam os 
especialistas, devem-se mais a falhas na manu- 
tenção e erros de operação por parte dos 
usuários do que propriamente a defeitos de 
natureza técnica. 

Para José Carlos Niza, engenheiro e diretor 
técnico da Computer Service Center Ltda., 
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empresa carioca especializada em manutenção, 
a área mais problemática de computadores 
como os TKs 82-C e 83, bem como o ZX81, é 
a conexão de expansão de memória que, se 
não estiver bem encaixada, pode acarretar 
falhas de operação no micro, tais como o apa- 
gamento da memória ou mesmo o trancamen- 
to do sistema operacional. Sobre isso, aliás, 
os técnicos consultados recomendam a limpe- 
za periódica dos contatos — tanto do micro 
quanto da expansão — para evitar problemas 
de mau contato causados pela oxidação. Isso 
pode ser feito com um pano levemente embe- 
bido em benzina. 

Niza faz ainda outros comentários a respei- 
to da operação desses sistemas. “Retirar a 
expansão com o computador ligado é crime”, 
diz ele, acrescentando que “não só a expan- 
são, mas todas as conexões devem ser feitas 
com o computador desligado”. Nunca se deve 
desligar o micro pelo plugue conectado ao 
aparelho, mas sim no interruptor da fonte ou 
diretamente na tomada da rede elétrica. Assim 
evita-se a geração de cargas espúrias que po- 
dem danificar o circuito. E quando sedesligar- 
o que é feito com frequência para ressetar o 
sistema — deve-se esperar pelo menos uns 10 
segundos para permitir que os capacitores se 
descarreguem e não haja sobretensões na hora 
do religamento. 

As empresas independentes de manuten- 
ção, por sua vez, não gostam de consertar 
esses equipamentos porque é uma tarefa tra- 
balhosa e demorada, ao mesmo tempo em 
que, devido às características de baixo custo 
dessas máquinas, o valor dos orçamentos tem 
que ser necessariamente reduzido. 


37 





OS PEQUENOS NOTÁVEIS 


hi 
pela ionária da CDSE, Maria da 
Dias, de que a máquina estaria sain- 








AS-1000 


Ari Soares, proprietário de uma dessas 
empresas, a Yatec, do Rio de Janeiro, explica 
melhor os motivos dessa “rejeição”. O princi- 
pal problema diz ele, é que os componentes, 
principalmente os integrados, são soldados na 
placa, quando deveriam ser colocados em so- 
quetes. Se assim fosse, prossegue, o conserto 
de um equipamento desses seria coisa de mi- 
nutos, pois ficaria muito mais fácil localizar e 
substituir o componente defeituoso. Como, 
no entanto, é tudo soldado (às vezes em baixo 
e em cima da placa), a localização do defeito 
fica muito mais difícil — posto que não dá 
para testar individualmente os integrados 
“suspeitos” — e, quando se retira o compo- 
nente com o ferro de soldar, frequentemente 
ocorre danificar-se a pista do circuito, que de- 
ve ser refeita, dando ainda mais trabalho e con- 
sumindo tempo. Tudo issó faz com que o 
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custo da mão-de-obra fique muito alto em 
relação ao valor do equipamento e ao que o 
seu proprietário está disposto a gastar num 
conserto. 

Para o técnico de manutenção, sentencia 
Ari, “o design do circuito é mais importante 
que a qualidade do componente”. Ele aponta 
os principais problemas que encontrou nos 
Sinclair (originais ou compatíveis) que passa- 
ram pela sua oficina: teclado (''a qualidade da 
fita que liga o teclado à UCP é ruim"); falhas 
de montagem na fábrica; especificamente no 
caso do TK82-C, defeitos causados pela adi- 
ção da placa de SLOW; componentes ruins. 

Apesar de todos esses problemas, Ari Soa- 
res não poupa elogios a essa linha de equipa- 
mentos: “O Sinclair, em termos de hardware, 
é a melhor máquina que eu já vi na minha 
vida. O seu firmware é algo fantástico; com 
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rm fumo) mm Too | Descrição | tiotoma | 


CDSE - Centro de Des. de Sist. Elet. ind. Com. Ltda. 69 teclas 

Estrada do Galeão, 11 - sala 202 de função: 25 
8 K ROM 
8 K ROM 


21931 Rio de Janeiro - RJ de comando: 26 
Tel.: (021) 396-4264 numérico reduzido 
8 K ROM 


Texto: 32 col. x 22 | 
Gráfico: 64 x 44 pts. 


Borracha 


40 teclas 
de função: 154 
de comando: 34 


Eletrônica e Informática Ltda. 
Rua do Russel, 450 - 3.º andar 
22210 Rio de Janeiro - RJ 
Tel.: (021) 205-4898 


Membrana 
c/ calotas 


43 teclas 
Calculadora | 160 funções 
e comandos 


49 teclas 

algumas c/auto- 
repetição 

de função: não tem 
de comando: 34 


Texto: 32 col. x 22 1. 
Gráfico: 64 x 44 pts. 


Texto: 32 col. x 22 | 


Eletrônica Ltda. Gráfico: 64 x 44 pts. 


Microdigital 
Rua do Bosque, 1234 
01136 São Paulo - SP 


Tel.: (011) 825-3355 Texto: 32 col. x 22 | 


Gráfico: 64 x 44 pts. 


Prológica Microcomputadores Ltda. 
Ay. Eng.º Luis Carlos Berini, 1168 
04571 São Paulo - SP 

Tel.: (011) 531-8822 


Texto: 32 col. x 221 
Gráfico: 64 x 44 pts. 
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Esta tabela foi feita com base nas informações de um questionário respondido pelos fabricantes, e compreende apenas os equipa- 
mentos efetivamente sendo comercializados. Com a finalidade de evitar repetições e economizar espaço, retiramos da tabela alguns 
dados comuns a todas essas máquinas e que apontamos a seguir: a UCP Z80A, com clock de 3,25 MHz, é uma dessas características, 


Texto: 32 col. x 22 | 

Gráfico: 64 x 44 pts. 

Alta res.: 256 x 192 pts. | profissional 
(c/ cartucho apropriado) 


Ritas do Brasil Ltda. 

Rua Soldado José Reymão, 199 
02178 São Paulo - SP 

Tel.: (011) 217-8400 
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era nec 


TK8S 


meia dúzia de componentes, Clive Sinclair fez 
um programa monitor que permite operar 
como um computador completo”. E vai além: 
“Um bom programador faz mais num TK que 
um meu programador num IBM-PC”. 

No tocante ao controle de qualidade dos 
produtos, os fabricantes ressaltam os seus es- 
forços nesse sentido. Engebrás, Microdigital e 
Prológica testam um a um os componentes 
antes de iniciar a montagem. A Ritas testa 
individualmente os componentes mais críticos 
e na base do percentual por lote os demais. 
Alguns fabricantes fazem testes intermediários 
durante a montagem e todos testam os equi- 
pamentos prontos, deixando-os funcionar por 
um determinado período antes de embalá-los. 
A Engebrás chegou a desenvolver painéis de 
teste de acordo com as suas especificações 
industriais e confecciona as próprias placas de 
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Até 48 K em módulos 
intemos de 16 K 












16 K RAM 






16 ou 48 K em 
placas externas 





2 K RAM 






16 ou p/ cassete 
48 K RAM p/ joystick 
Até 48 K em módulos 
16 K RAM | intemos de 16 K p/ cassete 


p/ joystick 


bem como a utilização de TV comum e, consequentemente, de modulador de RF. Todos esses micros também têm o mesmo sistema 


ENTRADAS 
E SAIDAS 


p/ interface serial 
p/ cassete 
p/ comunicações 


p/ interface paralela 
p/ cassete 

p/ joystick 

p/ speed-file 


2 slots livres 








p/ cassete 
p/ joystick 


p/ interface paralela 


CP-200 


circuito com máquinas Ristron importadas 
dos EUA. Todas as empresas mantêm labora- 
tórios de pesquisa e desenvolvimento. 

De um modo geral, os fabricantes vêem 
nos principiantes e nos jovens dos cursos se- 
cundário e superior os seus maiores clientes. A 
Ritas, contudo, apresenta ambições de maior 
porte: para Codonho, o Ringo deverá pegar 
uma faixa de público que vai desde o iniciante 
até à industria ou loja que não tem condições 
de ter um micro maior. Até mesmo “em gran- 
des empresas, nosso equipamento pode ser 
usado, por exemplo, em processamento distri- 
buído, como nos vários departamentos de 
uma firma ou nas várias lojas de uma cadeia”. 

Já a Prológica, talvez por atuar primordial- 
mente com sistemas maiores e de outras li- 
nhas, não acredita tanto na potencialidade dos 
pequenos equipamentos. Pelo contrário, con- 


CONFIGURAÇÃO BÁSICA 
PREÇO 

















"16 K RAM - Cr$ 346 mil 500 
32 K RAM - Cr$ 396 mil 
48 K RAM - Cr$ 445 mil 500 


16 K RAM - Cr$ 195 mil 
2 K RAM - Cr$ 139 mil 850 


16 K RAM - Cr$ 297 mil 850 
48 K RAM - Cr$ 429 mil 850 


16 K RAM - Cr$ 340 mil 


16 K RAM - Cr$ 321 mil 





16 K RAM c/ RS232C - Cr$ 357 mil 500 
32 K RAM c/ R$232C - Cr$ 407 mil 
48 K RAM c/ RS232C - Cr$ 456 mil 500 










interface AS-100 - Cr$ 75 mil 
exp. memória 16 K RAM - Cr$ 60 mil 

speed-file 1 MB - Cr$ 1 milhão 650 mil 
joystick - Cr$ 15 mil 


exp. memória 16 K RAM - Cr$ 69 mil 850 
exp. memória 64 K RAM - Cr$ 159 mil 850 


joy control - Cr$ 35 mil 

alta resolução - Cr$ 210 mil 
impressora P-500 c/ interface 
paralela - Cr$ 1 milhão 420 mil 


sintetizador de som - Cr$ 40 mil 
interface paralela Centronics - Cr$ 40 mil 
interface p/ modem - Cr$ 40 mil 
gravador de EPROM - Cr$ 80 mil 
interface p/ tape-deck c/ ultra 

fast - Cr$ 40 mil 
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forme argumenta o seu gerente de marketing, 
João Bittencourt, “o produto Sinclair tem um 
determinado tempo de mercado e os novos 
modelos vão chegar ao preço de um Sinclair, 
fazendo muito mais do que ele”. E arremata: 
“Os equipamentos da linha Sinclair podem ser 
usados em aplicações comerciais, mas nunca a 
ponto de competirem com sistemas maiores. 
Podem até fazer o que os sistemas maiores 
fazem, mas nunca com a mesma eficiência”. 


ESCOLA E CACHAÇA 


or serem os mais acessíveis, simples e ba- 
ratos, esses equipamentos constituem-se 
na grande escola; na porta de entrada de 
milhares de pessoas no mundo da Informática. 
Micro ligado na TV da sala (disputando tempo 
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operacional e “falam” as mesmas linguagens: Sinclair BASIC e Assembler. Os preços listados referem-se a dezembro/83, estando, 


pois, sujeitos a alterações. 
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de vídeo com os desenhos animados, novelas 
e filmes da família), um manual que a princf- 
pio é uma verdadeira caixa de mistérios, muita 
perplexidade e vontade de aprender. Essa ima- 
gem é comum a bastante gente, recordando os 
seus primeiros dias de usuário. E, para muitos, 
o sinclairzinho acaba virando cachaça, um 
hobby capaz de consumir incontáveis noites e 
fins de semana, para desespero de muitas 
esposas. 

A primeira geração de usuários de micros 
nacionais — entre os quais os de linha Sinclair 
encontram-se entre os primeiros a serem lan- 
çados — teve que aprender praticamente sozi- 
«nha. 


Conforme relembram essas pessoas, elas 
não tinham a quem recorrer: havia poucas 
revistas e livros especializados, e mesmo os 
entendidos no assunto, os profissionais de 
Informática, não conheciam essas máquinas. 
A solução era ficar longas horas na frente do 
vídeo tentando entender o que dizia o ma- 
nual. As primeiras lojas tornaram-se verdadei- 
ros clubes onde o pessoal se reunia para trocar 
experiências, repartir a pouca literatura dispo- 
nível e, com informações esparsas colhidas 
aqui e acolá, ir montando na cabeça uma bi- 
blioteca especializada. Houve até casos folció- 
ricos como o de um determinado livro estran- 
geiro do qual havia um único exemplar no Rio 
de Janeiro, com cinco cópias xerox circulando 
entre a turma de aficionados. 


Sobretudo em termos de Sinclair, conhe- 
cer ou não Informática ajudava um pouco, 
mas não fazia uma diferença fundamental. 
Tanto assim que nem usuários como Rui 
Cesar Torres — analista de suporte em equi- 
pamento IMB, 12 anos de profissão, conhece- 
dor de várias linguagens (inclusive o BASIC) 
— escaparam das dificuldades de aprendizado. 


Ele teve acesso a um dos primeiros ZX81 
lançados na Inglaterra (um gerente da sua 
empresa, inglês, trouxe e lhe emprestou por 
algum tempo) e logo que saiu aqui o TK82-C, 
comprou um. Apesar de já conhecer bem o 
BASIC, conta ele, a linguagem que mais o 
ajudou a compreender o Sinclair BASIC (que 
ele considera muito poderoso) foi o Fortran. 
Segundo ele, ambas as linguagens têm uma 
estrutura muito parecida, como por exemplo 
o comando FOR/NEXT [igual ao DO do For- 
tran) e o fato de só ser permitida uma ação 
após o IF, entre outras semelhanças. 


As dicas mais específicas sobre o equipa- 
mento (incluindo assuntos tais como sub-roti- 
nas, lógica, desbloqueio de programas e mes- 
mo a troca de programas), recorda Rui, eram 
conseguidas atraves da correspondência que 
mantinha com usuários de diversos pontos do 
país, cujos nomes encontrava na seção de clu- 
bes de MICRO SISTEMAS, então em seus 
primeiros números. 


O manual do equipamento também foi útil 
para aprender o BASIC, mas quando ele quis 
ir para o Assembler, o jeito foi comprar dois 
livros estrangeiros: Z80 Assembly Language 
Programming de Leventhal, e Mastering Ma- 
chine Code on Your ZX81 or ZX80, de Ba- 
ker, este último “tão bom que você encontra 
publicações nacionais calcadas nele”. 


Assim como Rui, quem já é programador 
BASIC e está habituado a outras linhas de 
equipamentos tem que passar por um período 
de readaptação até dominar certas particulari- 
dades do BASIC Sinclair. A começar pela 
ausência das instruções DATA, READ e 
RESTORE que, aliás, constituem-se talvez no 
ponto de maior polêmica entre os defensores 
e adversários da família Sinclair: estes procla- 
mando que a falta dessas instruções torna 
essas máquinas imprestáveis para qualquer 
aplicação mais “'séria” ou principalmente, de 
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natureza comercial; aqueles dizendo que o 
DATA, READ e RESTORE só fazem real- 
mente falta nesses equipamentos a quem não 
sabe programá-los direito, uma vez que essas 
instruções podem ser perfeitamente simuladas 
de outras maneiras. 

A obrigatoriedade de uso do comando 
LET para a atribuição de valor às variáveis e a 
impossibilidade de se colocar mais de um co- 
mando por linha são outras características 
que podem causar estranheza. 

Essas diferenças fazem às vezes usuários de 
TRS, Apple e outras máquinas maiores torce- 
rem o nariz para os pequenos Sinclair. Mas 
quem tiver a curiosidade maior que o precon- 
ceito e se dispuser a “fuçar” um pouco no 
TK, CP-200 (ou mesmo no ZX-81.. .Jirá, sem 
duvida, descobrir coisas interessantes. Confor- 
me diz Jose Rafael Sommerfeld programador 
profissional há quatro anos, trabalhando com 
Cobra 305, em LTD e Cobol, usuário de 
CP-200 e TK-85, “muitas dessas aparentemen- 
te deficiências são, na verdade, vantagens”. E 
dá um exemplo: para se imprimir um caráter 
de uma string num TARS, utiliza-se o comando 
MID$. O Sinclair não tem esse comando por- 
que na verdade não precisa dele: basta digitar 
PRINT AS$ (2), por exemplo, e o ndo 
caráter da string sai impresso na tela. E mais 
rápido, mais simples e ocupa menos memória. 

Antonio Carlos Salgado Guimarães, enge- 
nheiro, atualmente trabalhando com um IBM/ 
370 no Laboratório de Computação Científi- 
ca do CNPq, no Rio de Janeiro, vai mais longe 
ainda na defesa do equipamento Sinclair: “Em 
termos de custo/benefício ele é o melhor; 
você tem mais do que pagou. E se conseguir 
implementar bem, fica melhor que o TRAS”. 

Proprietário de um TK82-C há mais de um 
ano, Antonio Carlos já fez uma implementa- 
ção de hardware (um inversor de vídeo, no 
qual gastou Cr$ 1 mil) e várias de software: 
tem em fita todas as funções especiais do 
TK85 (high speed, verify etc.), que carrega no 
82-C feito monitor; tem compilador BASIC 
M-Coder e mais uma série de programas utili- 
tários. 

Antonio Carlos destaca a facilidade que 
esses equipamentos oferecem para o aprendi- 
zado de BASIC e Assembler, acrescentando 
que as próprias limitações de recursos dessas 
máquinas estimulam os usuários a pesquisa- 
rem, adquirindo conhecimentos que mais 


Os prós e os contras dos micros nacionais 


no mercado supe 

ra a casa dos 250 mil. 
— A velocidade de pena 
a Dusência que os maio- 
res problemas residem na má utilização do 


PONTOS NEGATIVOS 







com 
K de RAM). 
— O pouco aproveitamento da área de 
endereçamento entre a ROM e a RAM 
con- 
— A falta de técnicas 
epa de o dae 
ep se 
eo es o, ue de vio 
— A falta 
técnica realmente 


| 


tarde podem ser empregados em outros 
computadores mais complexos. Ele exempli- 
fica, inclusive, dizendo que muitos dos con- 
ceitos de computação que aprendeu, deve-os 
ao seu TK e não ao/370 com o qual trabalha. 

Lamentando a falta de bom software — 
mesmo que pirateado do exterior — e de peri- 
féricos no mercado brasileiro, Antonio Carlos 
conta que aprendeu Assembler sozinho, atra- 
vés de livros e revistas estrangeiros, e queixa-se 
dos manuais dos nossos equipamentos: “As 
informações são mínimas. Tem-se a impressão 
de que eles (os fabricantes) escondem o jogo”. 

Dificuldades à parte, os usuários dos 
micros Sinclair são unânimes em ressaltar a 
capacidade desses equipamentos. Sua excelen- 
te manipulação de strings e de matrizes (que 
substitui o DATA/READ/RESTORE), a parte 
gráfica, que permite fazer bastantes coisas, e os 
comandos por uma única tecla, que propor- 
cionam maior comodidade, rapidez de digita- 
ção e economia de memória. isso sem falar 
nas poderosas funções de edição que indicam, 
no momento mesmo da digitação, se há erros 
de sintaxe e ainda por cima mostram o local 
exato onde o erro ocorreu. Dessa maneira, a 
depuração do programa é feita juntamente 
com a sua digitação e quando um programa 
começa a ser executado num Sinclair, ele pode 
apeare aerea si lógica, mas nunca um erro de 

ntaxe 


“A do (Clive) Sinclair foi muito 
grande”, diz Rui Cesar Torres, “vai ser difícil 
alguém fazer um computador melhor e a um 
custo menor”. E completa: “Se a pessoa não 
tiver grandes ambições de cor, som e alta reso- 
lução, e se não quiser gastar muito, o Sinclair 
é máquina prá vida toda”. 





Apuração SP: Cláudia Ramalho e Stela 
Lachtermacher 


Apuração RJe texto final: Ricardo Inojosa 


MICRO SISTEMAS agradece a todos os que 
colaboraram nessa reportagem, que não teria 
sido possível realizar sem a experiência adqui- 
rida na operação diária do CPD da Revista. 
Por esse motivo, agradecemos de público o 
grande apoio que nos tem sido prestado pelas 
empresas Prológica e Microdigital. HA 
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oULU 


ÇÃO NÃO É PROBLEMA & 


não importa o tamanho de seu problema, 
nós temos a solução na medida exata ! 


LINGUAGEM BASIC 

16 K DE MEMÓRIA 
VELOCIDADE DE 
TRANSFERÊNCIA 14 VE- 
ZES MAIS RÁPIDA 


MICRO: 
LINGUAGENS COBOL, 
BASIC E FORTRAN 
64 K DE MEMÓRIA 
DUAS UNIDADES DE 
DISCO 


ACESSÓRIOS 


SOFTWARE € MESAS € DIS 
QUETES * ARQUIVOS € 
FORMULÁRIOS CONTI. 
NUOS € ESTABILIZADORES 
DE TENSÃO € UNIDADES 


DE DISCO FLEXIVEL € ETC. 


MODULAR 

LINGUAGEM BASIC 

48 K DE MEMÓRIA 
COMPATIVEL COM 
SOFTWARE DO CP-500 


IMPRESSORA: 

e VELOCIDADE 130 CPS 
e MATRIZ7x9 

e 132COLUNAS 

e ORIGINAL +5 CÓPIAS 


APROVEITE! 


PROMOÇÕES ESPECIAIS € 
FINANCIAMENTO € LEA- 
SING € CONSÓRCIO € CAR- 


TÕES DE CRÉDITO: CREDI- 


CARD, NACIONAL, ELLO. 


LINGUAGEM BASIC 

48 K DE MEMÓRIA 

ATÉ 4 DRIVES 

SAÍDA PARALELA SE- 
RIAL 


VELOCIDADE 200 CPS 
MATRIZ 7x9 
INTERFACE: 
PARALELA, 

SERIAL 


VELOCIDADE 100 CPS 
MATRIZ 9x7 
INTERFACE: 
PARALELA 

SERIAL 


TRAÇADOR 
GRÁFICO 


e BPENAS 

e AREA DE TRAÇADO 
10 x 15 POL. 

6 INTERFACE RS232 


filcres 


Filcres Importação e Representações Ltda. 
Rua Aurora, 165 — CEP 01209 — São Paulo — SP 
Telex 1131298 FILG BR — PBX 223-7388 — Ramais 2, 4, 
12, 18, 19 — Diretos: 223-1446, 222-3458, 220-5794 e 
220-9113 - Reembolso — Ramal 17 Direto: 222-0016 — 220-7718 








Com a ajuda deste programa, os usuários do PC-1211 poderão calcular 
mais rapidamente os Momentos Fletores de uma viga contínua 








Um pocket-programa 
de vigas contínuas 





Edison Waetge Junior 





ste programa, desenvolvido para o PC 1211, calcula os 

Momentos Fletores nos apoios de um viga contínua 

com até quatro vãos (cinco apoios), submetida a uma 

carga unitária concentrada passeando de quinto em 

quinto de cada vão. Considera-se a viga com Momento de 
Inércia constante. 

Através do exemplo a seguir, poderemos analisar a nomen- 


clatura utilizada pelo programa: 


10:REM "LINHA D 
E INFLUENCIA 


20: INPUT "NUMER 
O DE VÃOS <M 
ax 4)="52 

= d Z<2THEN 2 

ol Z>4THEN 2 

35: INPUT "Lc1> 
= ";â 

40: INPUT "L<2> 
= ";B 

45: E Z=2THEN 7 

50: INPUT "L<3)> 
= “5C 

aca Z=3THEN 7 

60: INPUT “L(4) 
= ";D 

TO:!PAUSE "PRIME 
IRO APOIO" 

75: INPUT "SIMPC 
0)» ENG(O.5)> 

lit 4? 

80: PAUSE "ULTIM 
O APOIO” 

85: INPUT "SIMPC 


42 


0) - ã 
= “Sl 

90: 6=1/(2+/BeC 
2-F))> 

95: IF Z=2THEN 1 


40 

100: H=17(2+B/C+€ 
2-6)> 

105: a Z=3THEN 1 

1103 1=1/€2+C2D+c 
2-H)) 

115: M=1/(2+D/C+C 
2-L)> 


120: GOTO 130 

125: M=L 

130: N=17(2+C7Bec 
2-M)) 

135:GOTO 145 

140: N=l 

145: 0=1/(2+B AC 
2-ND> 

160:FOR W=1TO 4 

165: X=Ari/5 

170: R=X CARA 
)7 CAMA) 

175: S=XeCA-K)CZ 
*A-X)/ CARA) 

180: PRINT "CARGA 


EM X="5X 
185: IF F=OTHEN 2 


00 

190: Y=FeCO4R-S)7 
C1-Fao) 

195: PRINT Y 

200: Y=0*<F+S-R) 2 
(1-0xF> 

205: PRINT Y 

210: IF N=OTHEN 2 


65 
215: Y=-Y+N 
220! PRINT Y 
225: IF Z=2THEN 2 


65 
230: IF M=OTHEN 2 
65 


235: Y=-Y+M 
240: PRINT Y 
245: IF Z=3THEN 2 


65 ni 
e L=OTHEN 2 
255: Y=-Yl 
260: PRINT Y 
265: NEXT H 
280:FOR W=1TO 4 
285: X=B+h/5 
290: R=xX4<BxB-X+X 

)7/(B+B) 





2951 S=K4(B-X)*(2 
*B-X>2(B+B)> 
300: T=x+A 
ZOS: PRINT "CARGA 
EM X=";T 
310: Y=G*(N4R-5)72 
€1-G+N> 


adcaié A F=OTHEN 3 

320: PRINT -Y*F 

3ZS: PRINT Y 

mam N=OTHEN 3 

335: Y=Ne(G4S-R)7 
C1-NaG) 

340: PRINT Y 

nona Z=2THEN 3 

350: IF M=OTHEN 3 
85 


3551 Y=-Y+M 
Z60:PRINT Y 
Z65: IF Z=3THEN 3 


8s 

Z70: IF L=OTHEN 3 
8s 

375: Y=-Y4l 


380: PRINT Y 
385: NEXT HW 


390: IF Z=2THEN 5 
ag 


400: FOR W=1TO 4 
4103 R=e CCC —KAK 
)2<CuC) 

415: S=KecC-X)*C2 

CR) 7040) 
420: T=X+A+B 
425: PRINT “CARGA 
EM X=";T 
430: Y=Be(MeR-S) 7 
Ci-HaM) 
435: a F=OTHEN 4 


440: PRINT Y+G+F 
445: PRINT -Y4G 
450: PRINT Y 

ret 4 M=OTHEN 4 


460: Y=M+cEXS-R) 2 
Ci-MaH) 

46S: PRINT Y 

470: IF Z=3THEN 4 


90 
475: IF L=OTHEN 4 
90 


480: Y=-YaL 
485: PRINT Y 
490: NEXT W 
495: IF Z=3THEN 5 


90 
S10:FOR W=1TO 4 
515: X=DeW/5 
520: R=X+<DaD-X+x 
)7<DeD) 
525: S=K+CD-X)*<2 
*D-X>7<DwD) 
530: T=X+A+B+C 
535: PRINT "CARGA 
EM X="5T' 
540: Y=14(L4R-S)2 
Ci-I*L> 
545: IF F=OTHEN 5 


33 
SS0: PRINT -Y*H*6 


*F 
555: PRINT Y4H4G 
560: PRINT -Y4H 
565: PRINT Y 

570: IF L=OTHEN 5 


8s 
STS! Y=Le( 14S-R)2 
Ci-L*1) 
Seo: PRINT Y 
ses: NEXT W 
S90: PRINT * 
FIM 
600: END 
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Em primeiro lugar, os dados de entrada. O próprio progra- 
ma irá solicitar, pela ordem, os seguintes dados: 


1) número de vãos (Z = 2,3 ou 4). No exemplo, Z = 4; 


2) distância entre apoios, de L(1) até L(Z). No exemplo, L(1), 
L(2), L(3) e L(4); 


3) coeficientes de transmissão para os apoios extremos, que, 
no caso de engastamento, valem 0.5, e para os apoios simples 
valem O. No exemplo, pela ordem: 0.5 e 0. 


Passemos agora para os dados de saída. Para cada posição X 
da carga P, contada a partir do apoio A, serão impressos os 
Momentos Fletores de cada apoio. No caso de não estar conec- 
tada a impressora, os resultados podem ser obtidos pressionan- 
do-se a tecla ENTER. 

Para agilizar o programa, os Momentos Fletores nulos são 
desconsiderados. Assim, para o nosso exemplo, os dados de 
saída para cada posição X seriam: M(A), M(B), M(C), e M(D); 
se o apoio A fosse do tipo simples, as saídas seriam: M(B), M(C) e 
M(D); da mesma forma, quando a carga estiver sobre um dos 
apoios, todos os Momentos Fletores serão nulos. 

Na figura | temos um outro exemplo, no qual podemos 
acompanhar os procedimentos de cálculo efetuados pelo pro- 
grama. Observe que as unidades são as mesmas fornecidas na 
entrada. No nosso exemplo, tf.m. 

Como observação final, alertamos que se o usuário desejar 
fazer os cálculos para cada decimo de vão, deve alterar as li- 
nhas 160, 280, 400 e 510 para FOR W=1 TO 9, e incluir as li- 
nhas: 165 X= A“W/10, 285 X= B*W/10, 405 X=0/*W/10 e 
515 X= D“W/10. 





BIBLIOGRAFIA 
KALMUS, Simpson Simão & LUNARDI Jr., Eurímaco — Es- 


tabilidade das Construções, Vol. II, Tomo II, Editora Noble, 
1978. 


ERRAR P=1 tf 
I 
L(1)=10m L(2)=15m 









(A) (B) (Cc) 
Entrada: RUN 
"NUMERO DE VAOS (MAX 4) = ":2 
Sul) = “20 






“L(2) = ";15 
"PRIMEIRO APOIO" 

"SIMP(0), ENG(0.5) us 
"ULTIMO APOIO" 

"SIMP(0), ENG(0.5) 







" 
Õ 
94) 




















CARGA EM X = 2 









-1.387 M(A) 

-0.107 M(B) 
CARGA EM X = 4 

-1.760 M(A) 

-0.320 M(B) 
Ou, resumindo: 







X M(A) M(B) 













- 87 -0.10 
-1.760 -0.320 
-1.440 -().480 
-0.747 -0 
0.720 -1.440 
0.960 -1.920 
0.840 -1.680 
0.480 -0.960 





” 
Figura 1 E 


e + 


Edison Waetge Junior é formado em Engenharia Civil pela Universidade 
Mackenzie e trabalha na Ford do Brasil no Departamento de Engenharia. 
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CIBERNE 







CIBERNE é a mais avançada e sofisticada linha de sotfware para microcomputadores, criada 
para livrar você dos inconvenientes de produções amadoras ou de origem duvidosa. Com 
CIBERNE você terá uma diversificada linha de programas novos, lançados periodicamente 
em pacotes econômicos. Com gravação profissional e em embalagem inviolável, CIBERNE 
oferece a você garantia total em qualquer lugar do Brasil. 


FLASH-SISTEM qu 






O f equipament 






Sem qualquer acréscimo no preço você encontra em cada fita 5 excitantes jogos para seu lazer e 
entretenimento. Use joystick ou teclado. 
BICHOS & CIA PATRULHA GALÁCTICA COMBATE AVENTURA & MISTÉRIO 


» CASCA, A COBRA = NAVE MÃE s NIGHT GUNNER = PIRÂMIDE INCA 
8 CRAZY KONG * FUNGOS MUTANTES s ALERTA VERMELHO = SABOTAGEM 














» CENTOPÉIA 8 GALÁTICA = POLARIS a O AVENTUREIRO 

s FROGGER e SOS VEGA ill s DUELO s MAZOGS 

s SUCURI e PERSEGUIDOR s SCRAMBLE Ss USS ENTERPRISE 
UTILITÁRIOS 









ROF | - Plus RN à 





* SOG - Uma nova e mais poderosa versão de ROT | 
€ seu sensacional Sistema Operacional Gráfico. 


s MERGE 
PARA BREVE 


e ESTRELA NEGRA e ORÇA | (Orçamento doméstico) 
e CRISTAL MÁGICO e ARQI (Arquivo de Dados) 
* GUERRILHA CÓSMICA e CASH-FLOW 


EM TODO O BRASIL NAS MELHORES LOJAS DO RAMO. 


Informações, Distribuição e Vendas: 
JVA-MICROCOMPUTADORES LTDA. 
Av. Graça Aranha, 145 s/loja 01 - Rio de Janeiro - RJ 
CEP 20.030  Tel.: (021) 262-.6968 


s ASSEMBLER 
s DESASSEMBLER 
= COMPILADOR BASIC 












e O MERCADOR 
e STARQUEST 
e ZARAKS 






ICRO PROCESS 
COMPUTADORES LTDA. 


— MICROCOMPUTADORES - TK.2000/85/83 - CP. 500/300/200 
“APPLES” 
— MONITORES, IMPRESSORAS - PAPEL,FITAS, DISKETTE,ETC. 
- MANUTENÇÃO EQUIPAMENTOS (AVULSO E P/ CONTRATO) 
— PROGRAMAS DE CONTABILIDADE, ADMINISTR. IMÓVEIS. 
— ELABORAÇÃO DE PROGRAMAS ESPECIAIS 
— PERSONALIZAÇÃO DE PROGRAMAS PARA FIRMAS E 
PROFISSIONAIS LIBERAIS 
CONTROLE DE CLIENTES, TRATAMENTOS E CONTAS PARA 
CONSULTÓRIOS MÉDICOS E DENTÁRIOS 
PACOTES DE PROGRAMAS PARA ADVOGADOS, E 
CORRETORES DE VALORES E AÇÕES 
— OFERTAS ESPECIAIS 
e SUPERVISICALC (APPLE) (CP. 500/23) 
e OPEN MARKET/OVERNIGHT (CP. 500/23) 
e CARTEIRA DE AÇÕES (CP. 500/23) 
e CONTROLE DE OCORRÊNCIA PROCESSUAIS 
(CP. 500/APPLE) 
VIDEO GAMES (APARELHOS E CARTUCHOS) 
— REVISTAS, PUBLICAÇÕES TÉCNICAS 
PREÇOS DE SÃO PAULO 
— DESPACHAMOS VIA VARIG POR NOSSA CONTA 


AMPLO FINANCIAMENTO 
TEL.: 64-0468 
Alameda Lorena, nº 1310 - CEP 01424 


São Paulo 
*e* ESTACIONAMENTO PARA CLIENTES *** 








A Comutação 
revolucionar o quad! 







A Embratel conta 
para dar os últimos 





1954 está pintando um quadro muito 


pe quem vive o mundo da 
cleinformálica 
1954 É o ano do lançamento dos 


Serviços Renpac, oferecidos através da Rede 
Pública de Comunicação por Comutação de 
Pacotes, via Embratel. 

Comos Serviços Renpac, Os usuários 
compartilham recursos de transmissão 
por mensagens divididas em blocas-padrão, 
Os pacoles. 

De imediato, isso quer dizer inúmeros 
benefícios que dão maior flexibilidade 
ão desempenho à comunicação de 

S. 

No quadro ao lado estão algumas 

das principais vantagens dos Serviços 


Mas ainda há alguns 
importantes a serem decidi 
decididos com você, 

Procure à Embratel € fale das 
necessidades da sua empresa, seja cla 
grande, média ou pequena. A Embratel 
acredita que ninguém melhor do que você 


com você 


OS muito 
S. À serem 





de Pacotes val | 
o da lelentormática. 





e 








para saber que é melhor para você 
mesmo. E se você é um profissional liberal, 
Es também o mesmo. Há sempre uma 
icação dos Serviços Renpac para atender 
economicamente ao seu problema. E tudo 
coma conhecida eficiência da Embratel. 
Isso vale também para você que 
je equipamentos. Afinal, O lançamento 
dos Serviços Renpac vai criar uma demanda 
e novos itens que a sua indústria pode 


Para facilitar este nosso diálogo, aqui 
abaixo, à direita, está um cupom para você 
preencher e enviar à Embratel. Envie hoje 
mesmo. Nós entraremos em contato com 
você, DÊ sua participação efetiva para 
o melhor uso dos Serviços Renpac 

Comela, e só com ela, a ETA 
pode dar os retoques finais no quadro de 
vantagens que os Serviços Renpac vão 
trazer para você. 


Ministério das Comunicações 


É EMBRATEL 


Empresa do Sistema TELEBRAS 
a sua Empresa de Comunicação de Dados 


É E sa cm Telecomunicações S. A. - Embratel 
raro o rtentepom sala 912 - CEP 20071 - Rio de Janeiro - RJ 


COCLOOCLLLLCLLCELLLELLLLECELLCLCELDENLLELANE CALC NDALE CEEE CL COCA CCE TR E CRIE ERA A URU an nata aas 


E ARA O CONDE ensrisnicaisin ais cdsiaiiinisdsds: SADO ssnncsõis 


retoques. == .....=. 





Um duelo entre a Inteligência Artificial e a Natural nos jogos de 
tabuleiro mostra a importância da programação de jogos 





Inteligência 


lar nos Estados Unidos, Euro- 
pa e Japão. Para se ter uma 
idéia disso, basta notar que um grande 
número de jornais e revistas já publica- 
ram ensaios sobre ela. Entre as revistas, 
vale a pena citar Newsweek e Time; en- 
tre os jornais, o vetusto Le Monde. Tam- 
bém pegas ue va da popularidade dessa ciên- 
ato de robôs inteligentes, cons- 
truídos nos centros de pesquisa ameri- 
canos, serem escolhidos como paranin- 
fos por jovens colegiais. 
mais: Os cursos de Inteligência Ar- 
tificial nas Universidades Americanas es- 
tão tão concorridos que é dificílimo con- 
seguir uma vaga neles. Enquanto isso, 
Japão e Estados Unidos lançaram-se 
num projeto para construir um compu- 
tador inteligente antes do fim do século 


Inteligência Artificial está se 
À tornando cada vez mais popu- 


(o chamado computador de 52 geração): 


e alocaram grande quantidade de recur- 
sos humanos e materiais para levar 
adiante o referido projeto. 

Os encantos da ciência dos compu- 
tadores pensantes e dos robôs estão co- 
meçando a seduzir também os brasilei- 
ros. Em São Paulo, existem grupos de 
estudo sobre Inteligência Artificial e es- 
tudantes da USP estão fundando uma 
sociedade dedicada a esta ciência. 

Quais as razões para a súbita popula- 
ridade alcançada pela Inteligência Arti- 
ficial? A primeira razão é de ordem prá- 


46 


ificial- 


Antonio Costa 
Cristina Helena Bovo 





tica. Muita gente pensa que os japoneses 
e americanos estão investindo tanto na 
Inteligência Artificial que ela está desti- 
nada a ocupar uma ros dominante 
na Informática do futuro. A segunda 

razão deve ser procurada no espírito 
aventureiro do homem. Este espírito faz 
com que as pessoas se encantem com 
robôs inteligentes e máquinas pensantes. 


IMPORTÂNCIA 
DA PROGRAMAÇÃO DE JOGOS 


As pirâmides do Egito são, sem dú- 
vida, uma das maiores realizações da 
Engenharia Civil. Para construí-las, os 
antigos egípcios tiveram que dominar 
complexas técnicas de administração, 
transportes, planejamento, física dos 
materiais, etc. E para dominá-las os en- 
genheiros do Vale do Nilo usaram um 
processo muito simples. Eles tentaram 
construir uma pirâmide... ela desmoro- 
nou; tentaram construir outra, que tam- 
bém desmoronou. E cada pirâmide que 
desmoronava trazia novos conhecimen- 
tos aos egípcios. 

O método egípcio de pesquisa ainda 
é esporadicamente usado. A maior parte 
dos engenheiros, entretanto, não o usa. 
Os engenheiros aeronáutiços, por exem- 
plo, não testam um novo tipo de avião 
construindo um protótipo e fazendo um 
vôo experimental de Paris a Nova Iorque 
com passageiros a bordo. Eles cons- 


| 


troem um modelo pequeno e barato do 
avião e o testam num túnel de vento. 

Os jogos e quebra-cabeças são tão 
importantes para o especialista em Inte- 
ligência Artificial quanto os modelos de 
aviões para os engenheiros aeronáuti- 
cos. É através de jogos que novas técni- 
cas são descobertas e testadas. Os jogos 
de aventura, por exemplo, foram inven- 
tados por especialistas em Inteligência 
Artificial para experimentar métodos de 
processamento da linguagem natural. 

A importância da programação de 
jogos é tamanha que os industriais japo- 
neses, gente prática que só investe em 
coisas de retorno garantido, colocaram o 
desenvolvimento de um programa capaz 
de jogar “GO” entre as suas metas prio- 
ritárias. Eles sabem que tal programa 
permitirá a seus cientistas descobrir e 
testar métodos de reconhecimento de 
padrões fundamentais para dar ao Japão 
a liderança no campo da Informática. 


A ÁRVORE DE JOGOS 


Uma estrutura como a da figura 1 é 
denominada árvore. Ela é constituída 
por pontinhos (nós) unidos entre si por 
curvas contínuas (ramos). O nó de uma 
árvore é raiz se não for possível chegar a 
ele percorrendo ramos no sentido des- 
cendente. Uma folha é qualquer nó do 
qual não se pode sair percorrendo a ár- 
vore no sentido descendente. No exem- 
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“um 


1, AéraizeL, 

e K são folhas. Um 

past iate vhena ençõõnoa 
qualquer um dos nós dele, che- 
raiz, após percorrer n ramos no 


Figura 1! — Exemplo de árvore 


sentido ascendente. Na figura 1, os nós 
L, Me N estão no nível 3. 

O conceito de árvore foi introduzido 
propositalmente de maneira pouco rigo- 
rosa para evitar o formalismo matemáti- 
co e o jargão técnico que poderia assus- 
tar quem está se area na Informáti- 


ca. 
No estudo dos jogos de tabuleiro, é 
comum re tarmos as continuações 
possíveis de uma posição por uma árvo- 
re. Suponhamos, por exemplo, que a si- 
tuação possível num tabuleiro de jogo 
du seja a mostrada na figura 2. A 
figura 3 mostra os três lances que o joga- 


Figura 4 — Os lances possíveis de X, seguidos dos lances possíveis de O 


eh aged > <a e nn 
situações que pode o lan- 
qe os nome nas od azer dois 
cer gr, ego ag ca ce 
psd o qo ge a partir dos 
possíveis de X. 

Se representarmos cada um dos tabu- 
leirinhos da figura 4 por um nó, teremos 
a estrutura denominada árvore de jogos. 


A figura 5 mostra a árvore de jogos cor- 
respondente à situação da figura 4. 


ANÁLISE DE UMA POSIÇÃO 
doado ed galega o 


níveis associada a uma 
de tabuleiro a img seja dada 


jogo 
pela figura 6. O tabuleiro está na posi- 


o nó A. O problema 
escolher um entre os 


ção representada 
do computador 
lances que levam às posições representa- 


das pelos nós B, C ou D. Para isto, ele 
avança até as folhas da árvore e usa um 
or rasga mgadimmcoshmo o om 


Quanto melhor for para o compu- 
tador a posição representada por uma 
folha, mais alto é o valor atribuído a ela 

lo Avaliador-estático. No xadre 


is peças 
brancas houver, mais alto é o referido 
valor. E quanto mais pretas hou- 
ver, mais baixo é o valor. Se o rei branco 


estiver sob ataque, o valor decresce. Se o ga 
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res preto estiver sob ataque, o valor cres- 


o computador tentará escolher as jo- 
gadas que levem ao maior valor possível. 
Ele sabe porém que seus temíveis ad- 
versários humanos, dotados de uma até 
agora invicta Inteligência Natural, tenta- 
rão escolher os lances que levem ao me- 
nor valor possível. Devido a isto, o 
computador é denominado Maximiza- 
dor e o humano Minimizador. 

No nível quatro, quem vai escolher 
os lances é o Minimizador e, portanto, o 
lance de menor valor será escolhido. 
Dentre as folhas M, Ne K será escolhida a 
folha K, que vale três. Portanto, o valor 
que o computador conseguirá se ele che- 
gar à posição I é pelo menos três. (Ele 
poderá conseguir cinco se a Inteligência 
Natural “bobear”.). Se ele chegar em J, 
conseguirá cinco pontos. (Existe a possi- 
bilidade de ele conseguir oito, mas é 
bom não contar com isto.) Podemos di- 
zer então que o valor do nó I é trêse o 
valor do nó J é cinco. Quem vai escolher 
entre 1 e J é o Maximizador. O valor es- 





Listagem 1 


REM 


REM PILHA ARMAZENA VARIAVEIS ROTINAS RECURSIVAS. 


REM MNI NIVEL EM QUE O AVALIADOR ESTATICO VAI ATUAR. 

REM NI INDICADOR DE NIVEL. 

REM 1 CONTROLE DE FOR ... NEXT. 

REM PP PONTEIRO DE PILHA. 

REM NT NUMERO DE LANCES DISPONIVEL NUMA DADA POSICAO. 

REM ML MELHOR LANCE DO MINIMIZADOR OU DO MAXIMIZADOR 
APOS UMA BUSCA PARCIAL. 

REM CRT BANDEIRA INDICANDO QUE O GERADOR DE 

MOVIMENTOS NAO ENCONTROU NENHUM LANCE. 

REM VA VALOR CALCULADO PELO MAXIMIZADOR E PELO 

MINIMIZADOR. 


SSssssss 


REM 
DIM PILHA(209) 
BETA=999: ALFA=-999:CL 


INPUT “EM QUE NIVEL O AVALIADOR ESTATICO VAI ATUAR" MNT 


NI=g:PP=g: 1=1 

GOSUB 9909:REM MAXIMIZADOR 

PRINT"O MELHOR LANCE E” “4 ML 

PRINT "O VALOR OBTIDO COM ESTE LANCE E” “5 VA 

END 

REM 

REM=essnsasasnsensa=== MAXIMIZADOR ========2=0202n0u0uum 

REM VARIAVEIS LOCAIS: I, NT, NI, ALFA, BETA, ML 

REM 

IF NI=MNI THEN GOSUB 3000: RETURN:REM SE CHEGAMOS A 
UMA FOLHA, CHAMAMOS AVALIADOR ESTATICO. 

GOSUB 4000: REM GERADOR DE MOVIMENTOS 


IF NT= THEN GOSUB 3000; RETURN:REM SE NAO HA MOVIMENTOS 


CHAMAMOS O AVALIADOR ESTATICO 
ALFA=-999 
REM VARIANDO I DE 1 ATE” NT, EXAMINAMOS TODOS OS 
MOVIMENTOS GERADOS. 

FOR I=1 TO NT 

IF ALFA >= BETA THEN PRINT STRINGS (ZeNI,"“=")4 
:PRINT “OCORREU UMA PODA ALFA"; I=NT:GOTO 1070 

GOSUB S09O: REM COLOCA VARIAVEIS LOCAIS NA PILHA 
NI=NI+1:REM DESCE UM NIVEL 
PRINT STRINGS (ZeNI,"=") “NIVEL: "GNIS"LANCE: “51 
GOSUB 29000:REM CHAMA MINIMIZADOR 
GOSUB 60990: REM RESTAURA VARIAVEIS LOCAIS. 


REM O MINIMIZADOR COLOCOU O VALOR DESTE LANCE EM VA. 


REM ALFA DEVE CONTER O VALOR DO MELHOR LANCE DO 

PONTO DE VISTA DO MAXIMIZADOR E ML DEVE CONTER 
O MELHOR LANCE. ASSIM, SE VADALFA, ALFA DEVE 
SER FEITO IGUAL A VA E ML, IGUAL A I. 

1960 IF VADALFA THEN ALFA=VA:ML=I 

1070 NEXT 1 

1089 VA=ALFA 

19098 RETURN 


REM essesaaaa DEMONSTRACAO DO ALGORITMO MINIMAX esananaa 


REM====essesanssessesses VARIAVEIS =nssnnasasnsananannunnas 


REM BETA MELHOR VALOR DO PONTO DE VISTA DO MINIMIZADOR. 
REM ALFA MELHOR VALOR DO PONTO DE VISTA DO MAXIMIZADOR. 


REMenenansansessen== MINIMIZADOR ======enseaanannsunams 
REM VARIAVEIS LOCAIS: 1, NT, NI, ALFA, BETA, ML 
REMssnassasasas Ss 
REM 
IF NI=MNI THEN GOSUB 3008: RETURN: REM NAS FOLHAS, 
CHAMAMOS O AVALIADOR ESTÁTICO. 
GOSUB 4909: REM GERADOR DE MOVIMENTOS 
IF NT=8 THEN GOSUB 3099: RETURN: REM SE ESTAMOS SEM 
MOVIMENTO, CHAMAMOS AVALIADOR ESTATICO 
BETA=999 
REM INICIO DA ANALISE DOS MOVIMENTOS. 
FOR I=1 TO NT 
IF BETA<=ALFA THEN PRINT STRINGS (ZeNI,“=")51 
PRINT “OCORREU UMA PODA BETA": I=NT:GOTO 2179 
GOSUB 5060: REM ARMAZENA VARIAVEIS LOCAIS 
NISNI+1:REM PROXIMO NIVEL 
PRINT STRINGS (ZENIT, "=")I "NIVEL: "ENISCLANCE: "FI 
GOSUB 9900: REM CHAME MAXIMIZADOR PARA AVALIAR LANCE. 
GOSUB 6000: REM RESTAURA VARIAVEIS LOCAIS. 
REM VA CONTEM VALOR DESTE LANCE. BETA CONTEM VALOR 
DO MELHOR LANCE DO PONTO DE VISTA DO MINIMIZADOR. 
SE VA<BETA, DEVEMOS FAZER BETA=VA E ML=I. 
IF VA<LBETA THEN BETA=SVA:ML=1 
NEXT 1 
VA=BETA 
RETURN 
REM 
REM=Esanseeanenas AVALIADOR ESTÁTICO ==sesensonaesenuus 
REM O AVALIADOR ESTATICO E* VOCE MESMO. 
PRINT STRINGS (ZeNI,"=")F "QUAL O VALOR DO LANCE" SI5 
INPUT vA 
RETURN 
REM 
REMesssesees== GERADOR DE MOVIMENTOS sesesusancenanes 
REM O GERADOR DE MOVIMENTOS E” VOCE MESMO. 
PRINT STRINGS (2eNI,"=");"QUANTOS SUBLANCES TEM O LANCE"S 
PRINT 14“DO NIVEL“INIS 
INPUT NT 
RETURN 
REM 
REMssassanene== SUBROTINA PUSH cessnsansanssanssnnmaens 
REM ARMAZENA VARIAVEIS LOCAIS NA PILHA PARA EVITAR 
REM QUE ELAS SEJAM ALTERADAS POR CHAMADAS RECURSIVAS. 
PILHA(PP)=I:PP=PP+1:PILHA(PP)=NT;PP=PP+1 
PILHA (PP) =NISPP=PP+ISPILHA(PP) =ALFA:PPsPP+1 
PILHA (PP) =BETA:PP=PP+I:PILHA(PP)=ML:PP=PP+1 
RETURN 
REM 
REMsssssanasas SUBROTINA POP suunsasssessassasenams 
REM RETAURA VARIAVEIS LOCAIS POSTAS NA PILHA 
PELA SUBROTINA PUSH. 
PP=PP-1IMLSPILHA(PP):PP=PP-1: BETA=PILHA (PP) 
PP=PP-1:ALFASPILHA(PP):PP=PP-LINISPILHA(PP) 
PPsPP-1:NT=PILHA(PP):PP=PP-1: I=PILHA(PP) 
RETURN 
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colhido será cinco e, desse modo, o va- 
lor de E será cinco. Em B escolhe o Mi- 
nimizador e a escolha recairá, evidente- 
mente, sobre E. O valor de B será cinco. 
O valor de D é um (1), pois esta é a me- 
lhor escolha sob o ponto de vista do Mi- 
nimizador. O computador termina a 
análise escolhendo, entre os nós B (cin- 
co pontos), C (três pontos) e D (um 
ponto), aquele que tem maior valor. A 
escolha recairá sobre B. 

O algoritmo que acabamos de descre- 
ver é chamado Minimax. Este nome foi 
escolhido para lembrar-nos de que o 
Minimizador se reveza com o Maximiza- 
dor na escolha dos lances. 


PROGRAMA DE DEMONSTRAÇÃO 


Na listagem 1, oferecemos aos leito- 
res um pequeno programa em BASIC 
para demonstrar o funcionamento do 
algoritmo Minimax. Um bom modo de 
estudar o referido programa é examinan- 
do como ele analisa a árvore de jogo da 
figura 7. 

Na lista 200 (listagem 1), chamamos 
uma rotina que fará o papel de Maximi- 
zador. Na linha 930, o Maximizador 
verifica se o nó a ser analisado é uma 
folha. Caso seja uma folha, a rotina que 


Figura 7 - Uma árvore de jogos 


faz a avaliação estática é invocada. Esta 
rotina apenas perguntará ao usuário qual 
o valor da folha (num jogo ela deveria 
ser capaz de fazer a avaliação estática). 
Na linha 940, chamamos o gerador 
de movimentos e ele perguntará ao 
usuário em quantos lances se subdivide 
o nó que está sendo examinado. Num 
jogo, o gerador de movimentos fornece 








uma lista com todas as continuações da 
posição que lhe for apresentada. Entre 
as linhas 980 e 1070, os NT lances for- 
necidos pelo gerador de movimentos são 
avaliados. E quem os avalia? O Minimi- 
zador, é claro. 

Se examinarmos o Minimizador (en- 
tre as linhas 2000 e 2190), veremos que 
ele usa o Maximizador na linha 2130. 4 


TFPEGPLE 


Computação 


CURSOS PM MICROCOMPUTADORES 


São Paulo 
Campinas 
Jundiaí 


BASICI — BÁSICO 


BASIC |l - AVANÇADO 


Método Próprio de Ensino 

Professores Especializados 

Apostilas Completas de Textos e Exercícios 
1 Micro para cada 2 alunos 

NO limitado de vagas / turma 


— Av. Rouxinol, 201 
— Rua Cesar Bierrenbach, 171 
— Rua São Francisco Salles, 16 


— Fone 61-4595 
— Fone 8-3608 
— Fone 437-7988 


Rio de Janeiro — Av. N. S. Copacabana, 1417 - loja 313 - Fone 521-1549 
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====QUANTOS SUBLANCES TEM O LANCE 1 DO NIVEL 27 6 
====QUAL O VALOR DO LANCE 17 5 

====NIVEL: 2Z LANCE: 2 

====QUANTOS SUBLANCES TEM O LANCE 2 DO NIVEL 27 O 
====QUAL O VALOR DO LANCE 2 7? 7 

==NIVEL: 1 LANCE: 2 

==QUANTOS SUBLANCES TEM O LANCE 2 DO NIVEL 17 2 
====NIVEL: 2 LANCE: 1 

EM QUE NIVEL O AVALIADOR ESTATICO VAI ATUAR? 3 ====QUANTOS SUBLANCES TEM O LANCE 1 DO NIVEL 27 8 
QUANTOS SUBLANCES TEM O LANCE 1 DO NIVEL 9 7 2 ====QUAL O VALOR DO LANCE 17 3 

==NIVEL: 1 LANCE: 1 ==OCORREU UMA PODA BETA 

O MELHOR LANCE E” 1 





s===== DEMONSTRACAO DE PODA BETA ============== 


==QUANTOS SUBLANCES TEM O LANCE 1 DO NIVEL 17 2 


===sNIVEL: 2 LANCE: 1 


Em resumo: o Minimizador usa o Maxi- 
mizador e vice-versa. Isto se chama re- 
cursividade cruzada. Na recursividade 
cruzada, o Minimizador poderá alterar os 
valores das variáveis do Maximizador. 
Para evitar isto, antes de chamar o Mini- 
mizador na linha 1020, guardamos na 
matriz pilha os valores de todas as va- 
riáveis que não podem ser alteradas. Pro- 
gramadores de LISP ou de Pascal cha- 
mam estas variáveis de variáveis locais. 
Uma vez que o controle voltou do Mini- 
mizador para o Maximizador, a rotina 
6000 é invocada na linha 1030, restau- 
rando as variáveis locais. 

Em VA (ver listagem) está o valor do 
tabuleiro avaliado pelo Minimizador. 
Este valor é comparado com ALFA e, se 
for maior, ALFA é feito igual a VA co 
lance correspondente é armazenado em 
ML. Esta operação, repetida após a ava- 
liação de cada lance, terminará por co- 
locar em ALFA o valor do melhor 
lance. Na linha 1080, VA é feito igual a 
ALFA, isto é, igual ao valor do melhor 


O VALOR OBTIDO COM ESTE LANCE E" 5 


lance. Quando o controle retorna do 
Maximizador na linha 210, ML contém 
o melhor lance e VA contém o valor do 
melhor lance. 
A PODA ALFA-BETA 
Examinando a linha 1060, observa- 
mos que o Maximizador só aceitará o 
valor fornecido pelo Minimizador se ele 
for maior que ALFA. Isto signi ga 
se dentro do Minimiza A 
tornar-se menor do que ALFA, não é 
necessário examinar o resto dos lances. 
Isto porque a continuação da análise dos 
lances ou levaria a valores maiores que 
ETA ou a valores menores ou iguais a 
BETA. E dentro da hipótese de que 
BETA já se tornou menor que A, 
valores menores do que BETA seriam 


recusados pelo Maximizador. E valores 


maiores que BETA seriam recusados 
pelo Minimizador na linha 2160. Pode- 
mos, então, interromper a análise na 
linha 2092 sempre que BETA se tornar 
menor do que ALFA. Esta interrupção 
se denomina poda BETA. 


a 


gs = 
O vaias 

aí É 
iam, + 
PRP Sp 
Ed ço ss 





Por razões análogas às expostas no 
parágrafo anterior, sempre que ALFA se 
torna maior ou igual a BETA dentro do 
Maximizador, podemos interromper a 
análise. Esta interrupção é chamada 
poda ALFA. 

Na listagem 2, fornecemos um exem- 
plo de execução do programa de de- 
monstração da listagem 1 usando a árvo- 
re da figura 7. Como o leitor pode veri- 
ficar, uma poda BETA ocorre neste 
caso. 


MINIMAX EM LISP 
A primeira coisa que uma pessoa in- 
teressada em Inteligência Artificial deve 


fazer é aprender LISP e PROLOG. Estas 
mp e, sora são as ferramentas poderosas 
e flexíveis que estão tornando a Inteli- 
gência Artificial possível. 

Para dar ao leitor uma idéia de 
como é LISP, fornecemos na listagem 3 
o dpermo Minimax no LISP padrão do 
T . Na listagem 4, a árvore da figu- 
ra 7 é analisada usando o programa da 
listagem 3, isto é, o Minimax em LISP. 


EXPR PROCEDURE TESTE NILS 

BEGIN SCALAR NMAXIMOS 
PRINZ “QUANTOS NIVEIS TEM A ARVORE? “1 
NMAXIMO: READ NILS 
PRINT MINMAX("RAIZ,O,-99,99)5 

END: 


*TESTE ()5 

QUANTOS NIVEIS TEM A ARVORE? *3 

COMO SE CONTINUA A PARTIR DE RAIZ? “(A EB) 
COMO SE CONTINUA A PARTIR DE A? *(C D) 
COMO SE CONTINUA A PARTIR DE C? *() 
QUAL O VALOR DE C? *5 

COMO SE CONTINUA A PARTIR DE D? *() 
QUAL O VALOR DE D? *7 

COMO SE CONTINUA A PARTIR DE 

COMO SE CONTINUA A PARTIR DE *() 
QUAL O VALOR DE E? *3 

(35 A) 

(3 A) 


EXPR PROCEDURE GERADOR TABULEIROS 

BEGIN PRINZ "COMO SE CONTINUA A PARTIR DE “5 
“PRINI TABULEIROS PRINZ "7 "54 
RETURN READ NILS 

END: 


EXPR PROCEDURE AVALIADOR TABULEIRO + 

BEGIN PRINZ “QUAL O VALOR DE “5 
PRIN1 TABULEIROS PRINZ “7 * 4 
RETURN READ NIL 4 

END: 


EXPR PROCEDURE MINMAX (TABULEIRO, NIVEL, ALFA, BETA) 4 

BEGIN SCALAR M,W, TABULEIROS, MLANCE + 
IF NIVEL = NMAXIMO THEN RETURN AVALIADOR TABULEIROS 
TABULEIROS := GERADOR TABULEIROS 
IF NULL TABULEIROS THEN RETURN AVALIADOR TABULEIROS 
Mi= ALFAS 





Antonio Edusrdo Costa Pereira é formado em Engenharia Eletrônica 
pela Escola Politécnica da USP e em Física pelo Instituto de Física da 
USP. Fez mestrado em Ciência Espacial no Instituto de Pesquisas Espa- 
ciais em São José dos Campos, SP, e doutorado em Engenharia Ele- 
trônica na Comeil University em ithaca, Nove lorque (EUA). Atual- 


mente é professor na UNESP. 


Cristina Bovo e aluna da UNESP, onde estuda Algebra sob orientação 
do Prof. Dr. Irineu Bicudo. É bi-campeê regional de xadrez, represen- 
tando Rio Claro. Está desenvolvendo para o Clube de Xadrez de Rio 
Claro um sistema especialista destinado a ensinar principiantes a jogar. 


REPEAT 
BEGIN TABULEIRO: =CAR TABULEIROS! 
W:=MINUS MINMAX (TABULEIRO, NIVEL + 1,MINUS BETA, MINUS M) 


IF w > M THEN BEGIN M:=Wj MLANCE:=TABULEIRO ENDS 
TABULEIROS: =CDR TABULEIROS! 
IF M > BETA THEN TABULEIROS: =()5 


END 

UNTIL NULL TABULEIROS! 

IF NIVEL=O THEN RETURN LIST(M,MLANCE) 
ELSE RETURN My 
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SINTA NOS DEDOS ESTA NOVA 
CONQUISTA 


Já não é preciso escolher. Agora você tem o microcomputador DGT— 1000, com design moderno 
e novas incorporações que lhe conduzirão à decisão certa. 

O DGT—1000 é modular e dependendo da sua necessidade ele se expande até um grande sistema. 
A DIGITUS lhe assegura a possibilidade de expansão do DGT—1000 

através das interfaces que comercializa: 


Interface printer, paralela para impressora tipo centronis. 
Interface para unidade de disco flexivel 5 1/4 (até 4 
unidades de 184 KB cada). 

Expansão de memória até 64 KB. 


Interface colorida com alta resolução gráfica. os 

Interface RS 232. IT o 5, 
Sintetizador de voz. A do ad. ads" L! 
Sistema operacional DGP/M totalmente compatível com Rua Gávea 150 Belo Horizonte 
CP/M (com o DGP/M você poderá usar os famosos programas a 4 o 
WORDSTAR e dBASE |). Tel.: (031) 332-8300 Telex: 3352 


Aracaju Barveri E] Belo Horizonte 
Belem Campinas Curitiba Divinópolis Fortaleza 
Florianópolis Goiânia João Pessoa Londrina Maceió Montes Claros Niteroi 
Ouro Preto Poços de Caldas Porto Alegre Recite ' Ribeirão Preto 


Salvador Santa Maria São Paulo 


Taubaté Vitória 





Do 


Um programa de Engenharia para o TRS-80 Color, 
mas que roda em outros BASICs, com poucas modificações 





Resolução de Treliças 
Hiperestáticas 


Fermín Jimenez Murillo 


ste programa resolve Treliças Hiperestáticas (Análise 
Matricial de Estruturas) utilizando um micro TRS-80 
Color Computer com 32 Kb e uma impressora LINE 
PRINTER VII. 
epainado qiniago o berma dino porgraam permite é de 
62, o número máximo de nós é de 62 e o número máximo de 
carregamento é de 4, com 32 Kb de RAM. Para equipamentos 
com mais ou menos memória veja as observações ao final do 


artigo. 
OPERAÇÕES INICIAIS 


Primeiro deve-se fazer um esquema da treliça, como mos- 


trado na figura 1.b, em que se colocará uma seta para cada des- 
locamento em cada nó (horizontal e vertical no sentido positi- 
vo), que serão numeradas sequencialmente. 

Cada barra deverá ser então numerada e orientada. O grau 
de liberdade de estrutura (NP) será igual ao número de setas e 
cada barra orientada terá duas setas iniciais (N1 e N2) e duas 
setas finais (N3 e N4). (Em qualquer restrição, deve-se assumir 
que a seta tem número NP+1). 

A tabela de dados deve ser construída colocando-se para 
cada barra os respectivos valores de número da barra, N1, N2, 
N3, N4, H, Ve Área (veja figura 2 e listagem). H e V são as co- 
ordenadas do fim da barra, considerando-se o início como ori- 


m. 

Por último, deve-se construir a matriz de carregamento 
colocando-se uma força (se tiver) correspondente a cada des- 
locamento. Esta matriz terá três colunas: número do desloca- 
mento, número da condição de carregamento e força na dire- 
ção do deslocamento (é preciso colocar o sinal de menos (—) 
se a força estiver agindo no sentido contrário à sua respectiva 


seta. 

rp dé dados e a matriz de carregamentos são feitas 
através de linhas de programas com o comando DATA. Assim, 
é preciso que se apaguem as linhas 200 em diante e que se en- 
trem novas linhas com os dados na forma do comando DATA, 
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EXEMPLO 


Resolver q tesouro metólico da figuro la 

E: 2100000 Kg/qmê 

ÁREA = SE ASSUMIRÁ SO cm? EM TODAS AS BARRAS 
NnP:25s 

NM: 25 

NC 


MATRIZ DE CARREGAMENTO 


-380 
- 380 
-380 
-380 
-380 
- 380 
- 380 





Figura 1 


colocando-se três vírgulas após o último dado para indicar fim 
de dado 


s. 

Para visualizar isso, podemos ver o exemplo da figura 1, 
cujos dados estão nas linhas 200 em diante do programa apre- 
sentado ao final. 
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PROJETO — EXEMPLO 1 
CALCULO DE TRELICAS - ANALISE MATRICIAL DE ESTRUTURAS 
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AS SEGUINTES COLUNAS ESTAO NA ORDEM DAS CONDICOES DE CARREGAMENTO 
MATRIZ DE MATRIZ DE ESFORÇOS NAS 
DESLOCAMENTOS «cM)> BARRAS (KF> 
q e mm 


-3340. 4832 
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-762.9263 


q 


re 
a 
e 
2 
— 
VD Am 


. 


iá 
am 


O JA AN = 
] 
BoBo Bo 8080 
o Naus mm 
“ 
a 


sósbsósdadodsdo 


siga 
Ê 


SossssAssas isa sasasaaaas 
3888 


sssssspssasfoBa 
ERES RER 


Ê 





Figura 2 — Exemplo de saída do programa 


OPERAÇÃO DO PROGRAMA 


Se o equipamento for um TRS-80 Color Computer com 32 
Kb, primeiro deve-se acionar PCLEAR 1, que reserva aproxi- 
madamente 30 Kb para operar o programa. Ão executar o pro- 
grama com RUN aparecerão no vídeo as indicações necessárias 
para: 

— entrar com o nome do to; 

— entrar com NP (grau de liberdade), NM (número de barras) 
e NC (número de condi de carregamento); 

— entrar com as unidades de força e longitude; 

— entrar com o Módulo de Elasticidade. 

Todos estes dados serão pedidos pelo em forma 
de INPUT. Posteriormente, o programa fornece a tabela de 
dados, as condições de carregamentos, a matriz de deslocamen- 
to e os esforços nas barras, lembrando que a Compressão é 
considerada — e Tração +. 


OBSERVAÇÕES 
Algumas observações devem ser feitas a respeito do progra- 
ma: 
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— As unidades devem ser coerentes com o Módulo de Elasti- 
cidade. Se assim não o forem, ou caso se um Módulo 
de Elasticidade errado, os deslocamentos sofrerão variações, 
mas os esforços nas barras serão quase que os mesmos. 

— Para efeito de preenchimento da tabela de dados pode-se as- 
sumir a área das barras aproximada e os esforços nas barras 
quase que não mudarão. 

— Caso exista uma força inclinada agindo em um nó (uma for- 
ça de vento, por exemplo), esta deverá decompor-se em duas, 
uma horizontal e outra vertical. 

— Lembramos que um apoio fixo restringe dois deslocamen- 
tos, enquanto um apoio móvel restringe apenas um. Para cada 
restrição deve-se assumir uma seta de número (NP+1). 

— Para uma treliça razoavelmente grande, o computador de- 
mora um pouco no processo matricial. Num TRS-80 Color, o 
exemplo da figura 1 demora aproximadamente sete minutos e 
meio. 

— Para os que não possuem impressora, basta mudar as ins- 
truções 4 —2 (que comanda a impressora no TRS-80 
Color) para PRINT. 

— O método usado é o dos Deslocamentos. Para inversão da 
matriz utilizou-se o método GAUSS-JORDAN, com as simpli- 
ficações para matriz simétrica. 

— O programa aceita qualquer sistema de unidades, desde que 
estes sejam coerentes. 

— Para um equipamento com 16 Kb, ou então com 48 ou 64 
Kb, basta alterar a linha 16 do programa, dimensionando para 
mais ou para menos a amplitude das variáveis matrizes e veto- 
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RESOLUÇÃO DE TRELIÇAS HIPERESTÁTICAS 





Resolução de Treliças Hiperestáticas 


1º OVOS 76 = : = -— “7: 
: ; sao s CICAS a = aerea? AT(I,J)=AT(I,J)-AT(IC,J) *T:NEXTI 
is * FERMIN JIMENEZ MURILLO » 78 GOTO63 E 
O 79 IF(AX) =OTHEN122 
5 *CALCULO DE TRELICAS HIPERESTATICAS 80 FORI=ITONP:FORJ=1ITONC:P(I,J) =0:NE 
o : = ) «J) =0:NEXTJ,I 
6 pon GRAUS DE LIB.=62 . BARRAS=62 . COND. DE CARREG. 81 PRINTE-2,"":PRINTE-Z, "MATRIZ DE CARREGAMENTOS ("A$*")" 
7 'INICIALMENTE PCLEARI E ANTES DE RODAR O PROGRAMA: <DELETE ao Sor RE ri ora Ee 
- 4 4 

200 > 84 IF(I) <=0THENS6 
8 'PREENCHA OS DADOS A PARTIR DA LINHA 201 (EM FORMA DE DAT 85 P(I,J) =P:GOTO83 

A) “ - " 
9 'NAO ESQUECA DE COLOCAR TRES VIRGULAS (,,,) APOS O ULTIMO o Loco pai f 

DADO “e. 1: 
Pta; ss ” SER CORTOU o Dre PS RUA o" ;I; 


11 CLS:PRINTO-2,"":PRINT"CALCULO DE TRELICAS" 


12 PRINT"ANALISE MATRICIAL DE ESTRUTURAS" 90 PRINTO-2Z,USING essa qanço. PARE SPÍI,J), 


91 PRINTI;J;P(I,J) 


13 PRINT"ENTRE COM O NOME DO PROJETO” : INPUTXS Pai ag 
14 PRINTO-2,CHR$ (31); “PROJETO - "X$ O mpi o y 
15 PRINTO-2,CHR$ (30); "CALCULO DE TRELICAS - ANALISE MATRICI O aa AAA ds” CS RRENDOSA , CMNFRES DR DESLOCAMENTO 
AL DE ESTRUTURAS” eo 
94 PRINTO-2, STRINGS (27,"=") 
16 DIMAT(63,63) ,P(62,4),X(63,4) ,IX(62) ,F(4) 
ny Recebi Aju ud 95 FORI=ITONP:FORJ=1TONC:X(1,9)=0 
ENT : NP,NM, 96 FORK=1TONP:X(I,J)=X(I,J)+AT(I,K) *P(K,9) 
18 INPUTNP,NF,NC 97 MEXTK,3.T 
19 PRINTO-2,"":PRINTO-2,"GRAU DE LIBERDADE : “",NP 13. ' 
x D 98 PRINT"MATRIZ X 
20 PRINTO-2, "NUM. DE BARRAS : ",NF 
, N 99 FORI=1TONP:FORJ=1TONC 
21 PRINT6-2, "COND. DE CARREG. : ”,NC + Age to ga tg 
22 PRINT"ENTRE COM AS UNIDADES (F,L)* PES NEDDA 6 PARE 
23 INPUTAS,BS 102 PRINTS? CHRS (2 "se" 
24 PRINT"ENTRE COM E”; INPUTE aÃ o om e Do poe ad ce 
25 PRINTO-2,"MOD. DE ELAST. : ",E;A$;"/";B$;"2" n sos As 
26 PRINT6-2,"":PRINTO-2, "TABELA DE DADOS" :PRINTO-2,** sao cpa RAE TA PANE ge 9 
-% E a DE DADOS mo te ' 106 PRINT"MATRIZ DE ESFORCOS" 
fa : 107 PRINTO-2,*":PRINTO-2,"":PRINTO-2, "ESPORCOS NAS BARRAS ( 
) AREA" "A$")* 
— oc rita comida, 108 PRINT-2, STRINGS (24,"-") 
31 PORI=1TOWI:PORJ=1TOWI:AT(I,9) =0:NEXTJ,I 109 PORIOLZONCE LUNA 3) 00 SENTI 
110 RESTORE 
32 FORI=ITONF 
111 FORI=1TONF 
33 READMO,N1,N2,N3,N4,H,V,A 
tg mer per Sia ge lol 112 READMO,N1,N2,N3,N4,H,V,A 
cH+ : 113 PRINTO-2,CHR$ (26) :PRINTO-2, USING" AM” ; MO; 
35 PRINTMO;":";N1l;N2;N3;N4;H;V;A . * 
Op *s ' 114 XL=SQR(H*H+V*V) :CS=H/XL:SN=V/XL 
36 PRINTO-2, "BARRA”;MO, 115 FORJ=1TONC 
37 PRINTO-2,USING"oW AS” ;N1,N2,N3,N4, 116 P(J)=E*A/XLº(CS*(X(N3,9)-X(N1,9) )+SNº(X(N4,9)-X(N2,9))) 


38 PRINTO-2,USINC" CR AS. APPA" FH,V,A 
39 TI=E*A*CS*CS/XL 

40 T2=E*A*CS*SN/XL 

41 TI=E*A*SN*SN/XL 

42 AT(NI,NI)=AT(N1,N1)+T1 

43 AT(N1I,N2) =AT(N1,N2)+T2 

44 AT(N1,N3)=AT(N1,N3)-T1 

45 AT(N1I,N4) =AT(N1,N4)-T2 

46 AT(N2,N1I)=AT(N2,N1I)+T2 


117 PRINTMO;J,F(J), 

118 PRINTO-2,USING" esvsv adro. ses" ;E(J), 
119 NEXTJ:NEXTI 

120 PRINTO-2,"":PRINTO-2,"":PRINTO-2, "FIM" 
121 PRINTO-2, "===" 

122 STOP 

201 DATAL,26,26,1,2,175,45,50 
202 DATA2,1,2,3,4,175,45,50 

7 = 2,N2)+ 203 DATA3,3,4,5,6,175,45,50 

“8 MP QUR NS) SRS (US 83) 42 204 DATA4,5,6,7,8,175,45,50 

49 AT(N2,N4) =AT(N2,N4)-T3 205 DATAS,7,8,9,10,175,-45,50 

50 AT(N3,N1)=AT(N3,N1)-T1 206 DATA6,9,10,11,12,175,-45,50 
51 AT(N3,N2) =AT(N3,N2)-T2 207 DATA7,11,12,13,14,175,-45,50 
52 AT(N3,N3) =AT(N3,N3)+T1 208 DATA8,13,14,15,26,175,-45,50 
53 AT(N3,N4) =AT(N3,N4)+T2 209 DATA9,26,26,16,17,350,,50 

54 AT(N4,N1) =AT(N4,N1)-T2 210 DATAlO,16,17,18,19,175,,50 
55 AT(N4,N2) =AT(N4,N2)-T3 211 DATAl1,18,19,20,21,175,,50 
56 AT(N4,N3) =AT(N4,N3)+T2 212 DATA12,20,21,22,23,175,,50 
57 AT(N4,N4) =AT(N4,N4)+T3 213 DATAl3,22,23,24,25,175,,50 
58 NEXTI 214 DATAl4,24,25,15,26,350,,50 
59 PRINTO-2, STRING$(65,"-") 215 DATA1S,1,2,16,17,175,-45,50 
60 PRINT"<AGUARDE>" 216 DATAÍ16,16,17,3,4,,90,50 

61 PRINTO-2,"AS SEGUINTES COLUNAS ESTAO NA ORDEM DAS CONDIC 217 DATAl7,3,4,18,19,175,-90,50 


GAMENTO" 218 DATA18,18,19,5,6,,135,50 
62 DORTOLTONPSTE(T) nO NEXTI 219 DATA19,5,6,20,21,175,-135,50 
63 AX=-1 220 DATA20,20,21,7,8,,180,50 
64 FORI=ITONP 221 DATA21,20,21,9,10,175,135,50 
65 IF(IX(I))<>0THEN69 222 DATA22,22,23,9,10,,135,50 
66 T=ABS(AT(I,1)) 223 DATA23,22,23,11,12,175,90,50 
67 IF(T-AX) <=OTHEN69 224 DATA24,24,25,11,12,,90,50 
68 IC=I:AX=T 225 DATA25,24,25,13,14,175,45,50 

226 DATA2,1,-380 


69 NEXTI 
70 IF(AX) <=0THEN79 ado me pg 
71 IX(IC)=I:PV=AT(IC, IC) :sAT(IC,IC)=1:PV=1/PV 228 DATA6,1,- 


229 DATA8,1,-380 
230 DATAlO,1,-380 
231 DATA12,1,-380 
232 DATAl4,1,-380,,, 


72 FORJ=ITONP:AT(IC,J) =AT(IC,J) *PV:NEXTI 
73 FORI=ITONP 

74 IF(I-IC) =0THEN77 

75 T=AT(I,IC) :AT(I,IC)=0 
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O lugar compatível 
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micro. 


COMPUTAÇÃO CURSO 


OBJETIVOS: Formar o aluno com conhe- 
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oria em Processamento de 





Dados 
Desenvolvimento de Programas 


PROGRAMAS PRONTOS 
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e Emissão de Carnês 

e Controle de Convênios 

e Processamento de Cadastros 

e Histórico Médico 

e Mala Direta 
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vistas e/ou Livros 
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ESTE ESPAÇO ESTÁ 
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SÃO PAULO: (011) 
280-4144 e 853-3800 


MICRO SISTEMAS, fevereiro/84 





EB BITS E BUTES 





ANÚNCIO 







RETORNO 












Rua Miguel Lemos nº 41 
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TELEVÍDEO LTDA. 

R. Marquês do Herval, 157 
Tel.: (081) 224-8932, 
(50000) Recife, PE 

() Sr. Industrial: distribusmos seu 

produto nas melhores cond 
Contato em Sao Paulo: Tel.: (011) 
220-7377 (Sr. ANDERSON — Mun- 
disom) 












Atenção 
leitores 
de todo 
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Para controlar o liga-desliga de lâmpadas e aparelhos elétricos, 
um programa e uma interface para a linha Apple 





O último a sair 
apague o micro 





Evandro Mascarenhas de Oliveira 





ara os micros da linha Apple, apresentamos neste artigo 

uma montagem eletrônica simples que permite, através 

de programa simulando um relógio eletrônico, ativar 

ou desativar, por período determinado, dispositivos 
eletroeletrônicos (lâmpadas, motores, rádios, toca-fitas, apare- 
lhos elétricos etc.). 


ONDE E COMO 


O conector de jogos do Apple possui quatro saídas denomi- 
nadas Annunciators — ANN 0, 1, ANN 2 e ANN 3 (pi- 
nos 15, 14, 13 e 12) —, que representam tensões de zero ou 
cinco volts, dependendo dos esa compreendidos entre 
C058 e COSF a serem referenciados (figura 1). 





C058 -16296 


C059 -16295 
CO5SB -16293 
CO5SD -16291 
Cosr -16289 


COSA 
Cosc 
COSE 


-16294 
-16292 
-16290 





Figura 1 — Endereços associados aos Annunciators ANN 0, 1,2 e 3 para 
0e 5 Volts. 


Ao ligarmos o micro, estas saídas apresentam nível baixo 
(emtorno de 0,2V), passando a alto (em torno de 4,2V) quan- 
do, no programa, são referenciados os endereços citados atra- 
vés de POKE end, 0. Isto permite fazer um chaveamento (in- 
terruptor eletrônico) sobre um relé por meio de um transistor 
NPN — que faz a condução quando sua base está em nível alto 
(interruptor fechado) —, ou então cortar a condução quando 
ela está em nível baixo (interruptor aberto). 

O circuito eletrônico que realiza o controle da ativação ou 
não do relé está na figura 2:a base do transistor TR1, quando 


56 








Fotografia do protótipo 


em nível alto (endereço C059 do ANN 0, referenciado por 
POKE — 16295,0), permite a condução da corrente pela bobi- 
na do relé RL1 (indicada pelo acendimento do led D1), provo- 
cando o fechamento dos contatos 1 e 2 e permitindo a circula- 
ção de corrente de 110V para a carga (aparelho elétrico para 
esta tensão). 


Ao ser referenciado o endereço C058 por POKE —16296, 0, 
a tensão em ANN 0, vai próximo a OV, interrompendo a con- 
dução de TRI, o que impede a circulação da corrente na bobi- 
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Figura 2 — Circuito 
eletrônico para o 
controle de cargas 
externas por programa 
em computador da 
linha Apple. 
Observação: 

NA = Normalmente 
Aberto; 

NF = Normalmente 
Fechado. 


Soquete de jogos 





na, indicada pelo apagamento do led D1. Isto obriga os conta- universal (filetes paralelos), sendo as conexões feitas através de 
tos 1 e 2 do relé a ficarem abertos, interrompendo a corrente cabo Philips (cinco condutores), usando três (dois para a ali- 
de 110V pela carga. O diodo D2 evita danos sobre TRI no mentação e o terceiro para o ANN 0). Ver figura 3. 


momento da interrupção do circuito; R1l e R2 são resistores 
limitadores das correntes em Dl e base do TRI. DETALHES SOBRE O PROGRAMA 


ET taste Deise ainsi ooo SS 
A tensão de alimentação do dispositivo é tomada no pró- O programa para controle é a simulação de um relógio ele- 
prio soquete do controlador de jogos (pinos 1 (Vcc) e 8 (ter- trônico, que será acertado para os valores inicial, despertar a 


DAS, 
RUE 


Microcomputadores com crédito direto ou leasing 


e... ...* 


COLOR 64 Cr$ 495.000, X 2 (GRATIS APLICATIVOS) 
CP-200 Cr$ 157.000, X 2 (GRÁTIS 20 JOGOS) 
DGT-1000 Cr$ 320.000, X 3 (GRATIS 20 JOGOS) 
X2 
X 2 


a alteração 


TK-85 Cr$ 149.000, (GRÁTIS 20 JOGOS) 
CP-500 Cr$ 749.000, (GRÁTIS 20 JOGOS) 


os] 


TX NKNENI IO OO EEN 
else so db o elo Ss o ES 
DME XE EMO KMNKKA DOI RENA 


sujeitos 


- 
-— 


Prec os 


CURSOS DE BASIC COM ATÉ 100% DE DESCONTO 
ENTREGA RAPIDA EM TODO BRASIL 


X FU/COT *)0 CEEE = 


sos... 
Ce... 
e... a». 
se... 


oC... 
e... * 


e... 
e... A. 

e... 4! 
se... | 
e... . 
A... 
se... * 
ss... 
ee... * 
Cos... na. * 
CC... * 
een..." 


Aplicativos: controle de estoque: contabilidade: folha de 
pagamento; contas a receber pagar: mala direta; cadastro 
de clientes e desenvolvimento de software para cada neces- 
sidade. : 

Temos toda linha de perifericos e suprimentos para acom- 
panhar o crescimento de sua empresa 


VISITE-NOS OU SOLICITE UM REPRESENTANTE 





Figura 3 — Placa de circuito impresso universal 12,5 x7,5, vista pela fa- 
ce dos componentes. 


ra)) e a bobina do relé, apesar de ser para 6V, já atrai a arma- 
dura para tensões em torno de 3,5V, permitindo circular cor- 


: ori MICRONEWS COMÉRCIO E SERVIÇOS LTDA 
rentes de até 8A pelos contatos, suficiente para a masocia dos AR. Assembléia 10 Gr. 3317 - Ed. Centro Cândido Mendes 
aparelhos elétricos utilizados. Tel.: (021) 252-9420 - CEP 20011/RJ 





O autor montou o sistema em placa de circuito impresso 
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O ÚLTIMO A SAIR APAGUE O MICRO 


Relógio eletrônico 


5 HOME 
IO INPUT 
Ht(1) 
20 INPUT 
M(1) 
so INPUT 
S(1) 
40 PRINT 
So INPUT 
S(2) 
60 INPUT 
M(2) 
7O INPUT 
S(2) 
BO PRINT : PRINT 
PO INPUT "HORA FINAL 
H(3) 
INPUT 
sM(3) 
INPUT 
55(3) 
HOME 
PRINT SPC( 
TO SEGUNDO": 
PRINT “INICIAL 
6):5M(1)5 SPC( 7)5S(c1): 


"HORA INICIAL PRINT 
6)5M(3)5 
: PRINT : 
PRINT 
TRONICO": 
FLASH 1 


"MINUTO INICIAL 
“SEGUNDO INICIAL 


: PRINT 
"HORA DESPERTAR 
NORMAL + 
“MINUTO DESPERTAR 
“SEGUNDO DESPERTAR 
GOSUB 1000: 
FOR J 
GOSUB 
FOR K = 
FOR M = 
HTAB 15: 
: HTAE 15: 
: HTAB 20: 
“: HTAB 20: 


1000: 
“MINUTO FINAL 


“SEGUNDO FINAL 


10)5" HORA MINU 
PRINT 

“sH(1)5 SPC( 
PRINT 


HTAB 25: 


"sH(2)s SPC( 
PRINT 


PRINT “DESPERTAR 
6):5M(2)5 SPC( 7)355(2): 


NEXT +: 


(ativação da carga) e final (desligamento da carga), cujo signifi- 
cado é: 

e linhas 10 a 110 — especificam os valores inicial, despertar e 
final do relógio pelas variáveis H(1), M(1), S(1), H(2), M(2), 
S(2), H(3), MG) e S(3); 


É» HH 
o, Aicrocem NR 
dismac E q 
ESTES SÃO SÍMBOLOS 
ASANFANTECNOLÓGIA 





JUNTOS FORMAM 
A PERFEITA HARMONIA QUE VOCÊ PROCURA 


venha comprovar nosso atendimento 


EOQUIPAMENTOS-PROGRAMAS-CURSOS-CONSULTORIA 


Ta | esbi Informatica Ltda. 
tv. 28 de setembro 226-1j. 110 tel:(021) 2846949 








“FINAL 
SPC( 7)55S(3): 
PRINT 

SPC( 11): "RELOGIO ELE 
PRINT 

VTAB 
TE QUALQUER TECLA PARA INICI 
AR A CONTAGEM": 
VTAB 


22: 


FOR 1 = H(i) TO 23 
GOSUB 
= M(1) TO 59 
GOSUB 
S(t1) TO 59 
O TO 973: 
VTAB 15: PRINT " 
VTAB 15: PRINT I 
VTAB 153: PRINT * 
VTAB 153: PRINT J 


VTAB 15: 
: HTAB 25: VTAB 15: PRINT K 
GOSUB 1000: GOSUB 2000 

NEXT + 





290 H(1) = OsM(1) = O:S(1) = O: GOTO 
180 
IF 1 = H(2) THEN GOTO 1020 


"sH(3)3 SPC( 
PRINT 1000 
RETURN 

IF J = M(2) THEN GOTO 1040 


1010 
1020 
PRINT “APER 

RETURN 

IF K = S(2) THEN GOTO 1060 


1030 
GET AS 1040 
22: PRINT " 

RETURN 
POKE 
FLASH + 
NORMAL + 
RETURN 
IF 1 = H(3) THEN GOTO 2020 


10350 
1060 
1065 


- 16295,0 
PRINT “DESPERTOU”: 
dd CALL - 1052 

END 1070 
2000 2000 
RETURN 


2010 Ê 
IF J = M(3) THEN GOTO 2040 


NEXT 2020 
RETURN 
IF K = S(3) THEN GOTO 2060 


2030 
2040 


RETURN 

POKE -— 16296,0 

PRINT " “s PRINT 
à PRINT 3 PRINT "FINAL" 

END 


2050 
2060 
2070 


PRINT " 


NEXT 2090 


e linhas 130 a 170 — apresentam os valores de entrada e 
aguardam o acionamento de qualquer tecla (GET A$) para ini- 
ciar a contagem do tempo; 

e linhas 180 a 280 — contagem dos segundos, minutos e ho- 
ras. O loop da linha 230 controla o retardo necessário para ca- 
librar os segundos (no micro do autor, o valor 975 dá para o 
tempo de um minuto, com erro de mais ou menos 0,02 segun- 
dos); 

e linha 290 — zera os valores de hora, minuto e segundo assim 
que as 24 horas forem atingidas, reiniciando a contagem dos 
tempos; 

e linhas 1000 a 1070 — sub-rotina que testa o início da ativa- 
ção do relé, referenciando o endereço C059 (linha 1060), exi- 
bindo DESPERTOU em modo flash e dando sinal sonoro — 
bip (CALL — 1052); 

e linhas 2000 a 2090 — sub-rotina que testa a hora final, desa- 
tivando o relé (referencia o endereço 0058 na linha 2060) . 


Lista de material 


1) Semi-condutores: 
e TRI - transistor BC 548 —- NPN 

e DI — diodo fotoemissor (led vermelho comum) 

e D2 - diodo 1N4007 

2) Resistores (1/4 Watt de mais ou menos 10%: 

e Ri - 470 ohms 

e R2-1,2kohms 

; RL “relé Schrack d i ódigo 
a — Te ck para placa de circuito impresso, códi 
RP010006, bobina de 6V 

e placa de circuito impresso universal, cabo Philips etc. HA 

























Evandro Mascarenhas de Oliveira é médico e vem desenvolvendo suas 
atividades nas áreas de Laboratório Clínico e Instrumentação Médica. 
Trabalhou quatro anos com o computador Burroughs 6700 do Núcleo 
de Computação Eletrônica da UFRJ nas linguagens FORTRAN IV e 
ALGOL. É usuário dos micros NE-Z8000 e AP Il. 
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Os Kits de Micro Chegaram! 


APPLEKIT - Kit de microcomputador tipo Apple? 






Componentes para montagem 
de um microcomputador 
APPLEKIT completo. 


me 
microcontrol 
Sistemas de Controles 
Tels.: (011) 814-0446 e 814-1110 
São Paulo - Brasil. 





om 

add TT TO 
pl 
so 008 Bau 84ttfcss 


ANANDA i 
SEMA MAS AALAAA LIA 


» APPLEKIT 65020 


sannnnans 


APPLEKIT 65300 APPLEKIT 65400 


| APPLEKIT 65000) Placa de circuito impresso. [| APPLEKIT 65010] Conjunto de soquetes, conectores, resistores e ca- 


pacitores. | | APPLEKIT 65020] Conjunto de semicondutores, TTL's, LSl e memórias (As memórias EPROM são forneci- 


das com gravação). (APPLEKIT « 65100] Conjunto de teclado alfanumérico com 52 teclas e componentes, circuito im- 


presso. [APPLEKIT 65200] Fonte de alimentação tipo chaveado. [APPLEKIT 65300) Caixa de microcomputador em 


poliuretano. [APPLEKIT 65400] Manual de montagem e teste de micro. 
APPLEKIT é 100% compatível com os cartões periféricos da MICROCRAFT. * Apple é marca registrada de Apple Inc 


a 


Microcenter Informática Ltda. 


12-A Tijucí 


TRANSFORME A SUA 
MÁQUINA DE ESCREVER 
OLIVETTI ET 121 
EM IMPRESSORA 
DE COMPUTADOR 


Com a Interface da DW 121 sua máquina 
de escrever OLIVETTI Eletrônica ET 121 
se transforma em uma impressora de alta 
qualidade para textos ou programas, sem 
alterar as características originais da má- 
quina. 

Instalado internamente a Interface conta 
com um buffer de 2K bytes e uma série 
de comandos especiais para a confecção 
de textos, tais como: sublinhamento au- 
tomático, negrito automático, compri- 
mento de linha programável e outros, po- 
dendo ser acoplado a qualquer tipo de 
MINI ou MICRO COMPUTADOR que te- 
nha saída SERIAL RS 232C/Standard ou 
Paralela 8 bits Centronics. 


Solicite maiores informações a 


Daisy LUHEEL eletrônico 


INDÚSTRIA E COMÉRCIO LTDA. 


Uma Divisão da ESFEROMAC Ltda. 
Rua Antonio Comparato, 200 

Teis.: 532-0154 e 240-4829 

CEP 04605 São Paulo — SP 








QUIrSsos 


e O NETC — Núcleo de Ensino de Tecnologia 
e Ciência estará promovendo entre os meses 
de janeiro e março os seguintes cursos: Hard- 
ware de Teleprocessamento (45h), Software 
de Teleprocessamento (60h), Amplificadores 
Operacionais |! (40h), esgoto e Con- 
trole | (72h), Eletrônica Digital | (60h), Ele- 
trônica Digital || (60h), Computadores e Mi- 
crocomputadores Digitais — Hardware (45h), 
Hardware do Microprocessador 8080/85 
(35h) e Hardware do Microprocessador Z-80 
(35h). As aulas são retroprojetadas e apostila- 
das, dispondo-se de laboratórios para aulas 
práticas. Informações e pedidos postais de 
catálogos de cursos na Rua Álvaro Alvim, 37, 
2º and. tel: 225-6013, Rio de Janeiro, RJ. 

e O CBI — Centro Brasileiro de Informática 
apresenta os seguintes cursos: Teleprocessa- 
mento, Técnicas de Programação Estruturada, 
Programação Pascal, Análise Estruturada, Ma- 
nutenção do Microcomputador Pessoal DGT- 
100/1000, Projeto de Interfaces para Micro- 
computadores e Controle de Processos. Inscri- 
ções e informações na Av. Passos, 115, si. 
215, tel: (021) 233-1123, Rio de Janeiro, RJ. 
e Introdução aos Microcomputadores, Pro- 
gramação BASIC, Linguagem BASIC, Mi- 
crocomputador para Criança, Aplicação do 
Microcomputador na Engenharia e BASIC Il 
para Crianças. Estes são os cursos que a 
DATAMICRO Informática está oferecendo, 
de segunda-feira a sábado, em vários horários. 
Informações e inscrições na Rua Visconde de 
Pirajá, 547, sobreloja 211, Ipanema, tel: (021) 
274-1042, Rio de Janeiro, RJ. 

e Terão início em 19 de março os seguintes 
cursos promovidos pelo Instituto Mauá de 
Tecnologia: Curso de Especialização em 
Administração Industrial — CEAI, Curso de 
Extensão em Sistemas — CESI, Curso de Ex- 
tensão em Marketing para Exportação — 
CEEX e, com início em 15 de março, o Curso 
de Extensão em Administração de Transpor- 
tes — CEAT, todos com aulas à noite. Há um 
desconto de 10% para engenheiros graduados 
na Mauá. Inscrições na Rua Pedro de Toledo, 
1071, tel: 544-3135, Vila Clementino, São 
Paulo, SP. 

e A Tesbi oferece regularmente curso de 
Introdução à Linguagem BASIC em turmas de 
seis alunos com aulas diretamente em TK85 e 
CP-500, nos horários da manhã, tarde e noite, 
duas vezes por semana. A duração total do 
curso é de cinco semanas. O endereço da 
Tesbi é Av. 28 de Setembro, 226, l|j. 110, 
tel: (021) 284-6949, Rio de Janeiro, RJ. 

e O Centro Latino-Americano de Desenvol- 
vimento da Informática oferecerá um curso de 
Rede de Computadores, no més de março. 
Este curso tem como objetivo capacitar os 
participantes a dominar o vocabulário utiliza- 
do pelos profissionais da área; conhecer os 
principais elementos que compõem uma rede, 
suas funções e combinações possíveis; identi- 
ficar alternativas de tecnologia de redes, bem 
como possibilidade de utilização e problemas 
envolvidos, entre outros. O CLADI fica na 
Rua José Gonçalves de Medeiros, 96, Madale- 
na, tel: (081) 227-2307, Recife, PE. 

e Estes são os cursos de extensão universitá- 
ria que a UERJ está oferecendo: Mini-Micro- 
computadores Eletrônicos — Aplicações e 
Uso, 13/03 a 11/04, 36h; Análise e Projeto 
Estruturado de Sistemas de Informação, 
19/03 a 20/11, 150h; Formação de Técnicos 
de Progr de Computadores Eletrôni- 
cos, 21/03 a 21/11, 270h. Informações e ins- 
crições na Rua São Francisco Xavier, 524, 
Pav. Haroldo Lisboa, sl. 214, tel: 264-8143 e 
284-8322, r: 2417 e 2507, CEP 20.550, Rio 
de Janeiro, RJ. 


e A MICRO'S Processamento de Dados 
promove regularmente cursos de programa- 
ção BASIC e COBOL. As turmas são compos- 
tas de, no máximo, 20 alunos e todo o mate- 
rial didático é fornecido pelo curso. Maiores 
informações na Rua Duque de Caxias, 450, 
Edifício Chams, Salas 702 e 703, tel: (034) 
235-6965, Uberlândia, MG. 

e O Instituto Psicodinâmico de Idiomas está 
oferecendo curso intensivo de BASIC para 
principiantes. A duração do curso é de duas 
semanas, com carga horária de 11 horas sema- 
nais. O curso baseia-se em 60% de aulas práti- 
cas, 20% de demonstrações e 20% de teoria. 
O Instituto fica na rua Martiniano de Carva- 
lho, 200, fone: (011) 284-3912, São Paulo, 


SP. 

e Informática para Usuários, Fundamentos 
de Teleprocesssmento e Fundamentos de 
Bancos de Dados são os cursos que a SCl está 
oferecendo. As inscrições estão abertas. Maio- 
res informações na Rua Jardim Botânico, 635, 
8º and., tel: (021) 294-7438, CEP 22470, 
Rio de Janeiro, RJ. 

e |I Curso de Atualização em Análise de Sis- 
temas é o que o IBAM está oferecendo de 19 
de março a 08 de junho. O programa deste 
curso abrange Atualização Metodológica, O 
Estado da Arte da Tecnologia de Informática, 
Atualização Gerencial e Seminários, Automa- 
ção de Escritórios e a Política de Informática 
no Brasil. As inscrições devem ser feitas no 
Largo do IBAM, nº 1, Botafogo, Rio de Janeiro, 
Maiores informações pelo tel: 266-6622, RJ. 
e A FUNDEP e a UFMG estão oferecendo 
os seguintes cursos, no período de março a 
agosto: Curso BASIC, Curso FORTRAN, Cur- 
so de Microprocessadores e Curso Pascal. Um 
curso sobre O Computador na Administração 
— Treinamento de Usuários, também está sen- 
do oferecido, de 15/03 a 16/04. Maiores in- 
formações na Av. Antonio Carlos, 6627 — 
Pampulha — Belo Horizonte — tel: 441-8077, 
R. 1447 e 1451, MG. 

e A Compbel promove regularmente cursos 
de Introdução a Microcomputadores, para 
estudantes de nível colegial, BASIC |, BASIC 
ll e Visicalc Plus. Em todos os cursos o núme- 
ro máximo é de três alunos por equipamento. 
A Compbel fica na Rua Gregório Paes de 
Almeida, 62, Vila Madalena, São Paulo, tel: 
(011) 65-9857, SP. 

e A Erkla está promovendo a partir deste 
mês cursos de: Microprocessadores ZB80, 
Microprocessadores 8080/8085, Assembler 
Z80, BASIC, Básico de Sistemas Digitais, en- 
tre outros. Maiores informações na Av. 
Pacaembu, 1261, tel: (011) 67-8339 e 
826-1499, São Paulo, SP. 

e A Compucenter estará promovendo de 20 
a 22 de fevereiro curso de Administração de 
Dados e Data Entry — técnicas para aumentar 
a produtividade, de 22 a 24 de fevereiro. 
Maiores informações pelo tel: (011) 255-5988, 
São Paulo, SP. 

e Cursos de BASIC |, BASIC Il e Uso de 
Aplicativos por Cr$ 60 mil. Eldorado Compu- 
tadores, Rua Visconde de Pirajá, 351, sis. 
213/214, Ipanema, tel: 227-0791, Rio de 
Janeiro, RJ. 

e A Data Record está oferecendo cursos de 
BASIC, COBOL e Digitação. Períodos: manhã, 
tarde, noite e fins de semana. A Data Record 
também oferece bolsas especiais para estudan- 
tes. Maiores informações na Av. Santo Amaro, 
5450, Brooklin, tel: (011) 543-9937, São 
Paulo, SP. 


e Para informar ao leitor sobre os cursos que 
estão sendo oferecidos, a revista recolhe in- 
formações em diversas instituições ou as rece- 
be pelo correio. Portanto, não nos responsabi- 
lizamos por quaisquer alterações posterior- 
mente efetuadas por estas instituições nos 
programas ou preços 
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Usuário da linha TRS-80 modelo |: aqui está um utilitário para você não 
perder de vista seus programas em linguagem de máquina gravados em cassete 











PROSYS 


Esdras Avelino Leitão 





de micros compatíveis com o TRS-80 modelo I a iden- 

tificar, localizar e carregar programas em linguagem de 
máquina, especialmente os que não possuem cassete com con- 
tador de giros. 

Ao ser carregado, o Prosys ficará localizado numa área da 
memória não utilizada por sistemas sem disco(403EH — 407DH) 
e só será afetado com a ocorrência de um RESET geral (volta 
ao READY?). 

Ele oferece as seguintes facilidades: 

1) coloca no vídeo o nome de cada programa à medida em que 
vai lendo a fita cassete; 

2) permite iniciar a procura de um programa em qualquer po- 
sição da fita, mesmo a partir do meio de um programa; 

3) permite a parada do cassete a qualquer instante para voltar 
ou adiantar a fita, e o subsequente retorno à tecla PLA Y; 

4) ao localizar o programa desejado, o comando é transferido 
automaticamente para a sub-rotina normal do sistema, que pas- 
sa a carregar o programa na memória; 

5) a qualquer instante basta teclar: 


LOAD 
*? NOME DO PROG. 


O programa Prosys tem a finalidade de ajudar os usuários 


e o cassete será ligado, iniciando a procura do programa dese- 
jado. 

Uma boa medida é carregar este programa no início de cada 
fita cassete. Assim, você terá controle total sobre todos os seus 
programas em linguagem de máquina. 


20 PRINTG256,"PROGRAMA PARA LOCA 
LIZAR, IDENTIFICAR E CARREGAR PR 
OGRAMAS EM 
NA." 
30 PRINT: PRINT"TECLE -LOAD- E A 
POS O -*?- O NOME DO PROGRAMA" 

40 FOR I=0 TO 2: READ Z: POKE 16 


LINGUAGEM DE MAQUI 


7176+1,Z: NEXT TI 

50 FOR J=0 TO 59: READ W: POKE 1 
6446+]J,W: NEXT J 

60 DATA 195,62,64,49,136,66,205, 
254,32,62,42,205,42,3,205,179,21 
,215,205,147,2,205,53,2,254,85,3 
2,246 

70 DATA 6,6,17,55,60,205,53,2-48 
,19,16,249,33,232,65,17,55,60,6;, 
6,126,183,40,8,26,190,32,218,35, 
19,16,244,205,231,2 pd 











SUPRIMENTO É COISA SÉRIA 


'á CENTRALDATA 


tom. é Representações Lida. 


e Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 


Discos Magnéticos: 5 Mb, 16 Mb, 80 Mb etc. 
Diskettes: 5 1/4, e 8 Polegadas — Simples e Dupla Face 


e Fita Magnética: 600, 1200 e 2400 Pés 
e Fita CARBOFITAS p/Impressoras: Globus M 200 — B 300/600 
e Fita p/Impressoras: Elebra, Digilab, Diablo, Centronic etc. 





ETIQUETAS PIMACO — PIMATAB 


e Cartucho Cobra 
e Pastas e Formulários Contínuos. 


Av. PRESIDENTE VARGAS, 482 - GR. 207 - TELS.: (021) 263-5876 - 253-1120 - RJ 
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Por que usar a sua, se você tem a memória do computador? Um catálogo de programas, 
por nome ou disquete, é o que propomos para os micros da linha TRS-80 








Programa que 
arquiva programas 


m dos maiores problemas de 
É | quem possui muitos discos é 
lembrar em que disquete se en- 
contra um determinado programa. Ou 
você possui uma memória formidável, 
ou então terá que se utilizar de um pro- 
grama que o faça por você — e é eviden- 
te que você não vai querer um programa 
que leve muito tempo para localizálo, 
ou que demore demais para classificar um 
arquivo. Por isso mesmo, o programa para 
catalogação de disquetes que aqui traze- 
mos (Catálogo/BAS), ainda que escrito 
em BASIC, utiliza rotinas em Assembler 
para suprir suas deficiências quando o 
fator tempo torna-se crítico. 
Desenvolvido para computadores 
compatíveis com o TRS-80 modelo III, 
o programa ocupa toda a memória dis- 
ponível, sendo que a configuração míni- 
ma para rodá-lo é 48 Kb de RAM e um 
ou mais drives. Os sistemas operacionais 
a serem utilizados podem ser o DOS 
500, TRS DOS e demais compatíveis. 


INSTRUÇÕES DE UTILIZAÇÃO 


Coloque o disquete contendo o siste- 
ma operacional e o programa Catálogo/ 
BAS no drive zero. Carregue o DOS. Se 
você for usar a impressora para do sprm 
o catálogo, use o comando FO para 
informar ao programa quais as dimen- 
sões do formulário que você está usan- 
do, por exemplo, FORMS (WIDTH 
= 80, LINES = 66). Depois disso, cha- 
me o BASIC-Disco. Responda 1V à per- 
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gunta QUANTOS ARQUIVOS e entre o 
comando a executar o programa: 
RUN CATÂLOGO/BAS. O sistema ope- 
racional o carregará, então, para a me- 
mória principal, executando-o em segui- 
da 


O programa abrirá o vídeo em três 
par a parte superior, composta das 
inhas O e 1; a parte do meio, composta 
de dez linhas (3 a 12) a parte inferior, 
composta de duas linhas (14 e 15). Cada 
partição do vídeo é separada da outra 
por um traço horizontal. 

A parte superior é puramente infor- 
mativasé dividida nos seguintes campos: 
1 — extrema esquerda: indicação de au- 
toria; 

2 — extrema direita, linha O: número do 
registro que está sendo lido do arquivo 
ou o número total de nomes atualmente 
catalogados; 
3 — extrema direita, linha 1: campo para 
preenchimento da data a ser impressa na 
listagem (o preenchimento é obrigató- 
o mesmo que a listagem não seja fei- 
ta); 
4 — meio do vídeo, linha O: nome do 
ra entre asteriscos ***CATA- 
Edo ad 5 
5 — meio do vídeo, linha 1: versão cor- 
rente do programa ou função que está 
sendo executada no momento. 

A parte do meio é utilizada para a 
apresentação do menu, e é também o 
local por onde se dará toda a entrada e 
saída de dados. A parte inferior é em- 


pregada pelo programa para orientar e 
informar sobre possíveis erros cometi- 
dos, como por exemplo, TECLE < EN- 
TER > PARA CONTINUAR. 


O menu apresenta sete (7) opções, a 
saber: 


1 —CRIAR/ATUALIZAR CATALOGO; 
2 — INSERIR DIRETORIO NO CATA- 


LOGO; 

3 — DELETAR DIRETORIO DO 
CATALOGO; 

4 — LISTAR CATALOGO; 

5 — LOCALIZAR PROGRAMA; 

6 — SALVAR CATALOGO; 

7 — TERMINAR.. 


Para as opções um, dois e três, o pro- 
grama pedirá que você informe de quan- 
tos drives dispõe. Na verdade, o progra- 
ma utiliza sempre o último drive do sis- 
tema, isto é, se você tiver dois drives e 
responder à pergunta com 2, ele pedirá 
que você coloque o disquete a ser cata- 
logado no drive 1; se você tiver somente 
um drive, deve responder 1 à pergunta, e 
ele pedirá que você retire o disquete 
com o programa Catálogo/BAS e colo- 
que o disquete a ser catalogado no drive 
0. 


Para todo disquete a ser catalogado 
ou deletado, o programa exibirá, na par- 
tição do meio do vídeo, o conteúdo do 
disquete e perguntará se você quer real- 
mente catalogálo ou deletálo. Após a 
catalogação, alteração ou deleção do 
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O * PROGRAMA PARA CATALOGAR DIRETORIOS DE DISQUETES 


POKE16562, AHBASPOKE16561,&H7C 
CLEAR2500 
DEFINTA-Z 
20 X=0:0PEN“R”,1,“CATALOGO/TXT”, L63FIELDA, L6ASDSSDNS=" “25K$=" “sPNS=STRINOS(1 
6,º *) 
30 ZP=0:2=0:21=0: 
31 Z8=” "IZNS=” “sZiS=” “azrs=" "2 
32 DN=-1:CS5$=STRINGS(10,13):728="ABCDEFGHIJKLMNOPQRS  uvwa YZ1234567890” 
41 DATA 327147,-6902, 33,-20676, 1798, 9134,-1008, 16430, 4358, 9134,-1008, 510, 
1064,-223, 13567,-7715, 28381,-8956, 1382,-8785, 2167, 30685,-6903,-6683, 5073,- 
767, 13830,-4832,-7760, 4097, 2304,-6691, 18141, 20236,-20467,-BB94, 8417,-11944 
, 2223 
42 DATA-386, 10283,-425, 14401,-450, 12979,-6854,-5163, 201897,-8946, 3910,-5367, 
3078,-386, 10298, 4613, 4899,-2544, 481, 16,-5367, 29661,-8954, 1906,-10795, 50 
89, 3841, 19024,-4832,-11856, 15368, 30685,-504,-7056, 5672, 264, 21, 32265, 112 
62, 3112 
43 DATA-20944, 6179,-15957, 33,-15616, 2714, 209,-15616, 2714 
S1 DATA 32717,-6902,-223,-20481,-8841,-8735, 2670, 26333, 19979, 6, 24099, 220514 
,=13347, 17922, 7976,-8725, 1630, 22237,-48057,-B784, 1651, 29405,-8953, 2158, 26 
ss. 8969, 30173,-8952, 2420,-25917,-10998,-8763, 94, 22237, 6913, 33,-13568, 12 
as 
S2 DATA 6401, 1320, 140731, 6379,-8716, 1118, 22237, 6405,-11839,-13347, 19970, 8 
00, -20243,-5175,-20243, 28381,-B954, 1894,-4681, 14418,-B952, 2158, 26333, 6153, 
-8771, 1651, 29405,-8953, 110, 26333, 6145, 169 
71 DATA 32717,-6902,-7715, 20189,-8958, 838, 17, 2048, 32477, 2054,-8743, 1134, 
26333, 19973, 24099, 22051, 28381,-8960, 358,-10811,-10779,-8639, 2251, 6262, 32 
257, 24099, 22051,-8725, 2654, 22237, 6411,-19347, 17928, 1056, 12435,-20735,-11 
961 
72 DATA 1204, 1568, 3340, 15648, 12568, 3340, 3112,-16870, 1568, 4697, 3333,-612 
O, 11056,-2808,-3832, 22475, 11552, 31193, 10416, 2027,-9965, 9105, 8995,-15919, 
-21992,-7925,-7711,-7739,-25917, 2058, 2293,-19327, 8263, 6156, 2269, 2293,-1332 
7, 8271 
73 DATA 6146,-9773,-15915,-B424 
91 DATA 32717,-6902, 33,-20676, 1798, 7134,-1008, 16430, 4358, 9134,-1008, 510, 
1064,-223, 13567, 24289, 22051, -6877,-6677,. 47963, 20011,-7719, 24291, 22051, 15 
74, 19968, 29153, 29475, 29219,-5341,-5367, 3033,-20359,-9784, -4328, 
101 DATA 32717,-6902, 8677,-1,-386, 14341, 12803, 16636,-8735,78735,/590, 18141, 
6147,-9980,-9755, 8641, 0,-4681,-12222, 14539, 6603,-9787,-9789, 28381,-8958, 8 
70,-4681,-6846,-11815, 2265,-30773,-B952, 78, 10141,-15103, 289,-6912,-15911,-97 
55, 6609 
102 DATA-11803, 6441, 24285,-8960, 342,-12007,-6699, 3096,-7711,-2808,-3832, 183 
79,-20184,-12520, 20250,-10938, 24099, 22051,-11797,-5147, 24099, 22051, 1249, 8 
197, 3078, 8205, 6191, 3088, 10253, 6668, 8382, 8966, 1299, 6157, 12520,-9955,-1 
4891 
103 DATA-11815,-18463, 21229,-16856,-10989,-15911, 1753, 3584,-12029, 2529,-5147 
,-6903, -18408,-11807,-6699, 774, 19994, 31095, 0978, 4115, 2295,-14389, 6152, 83 
98 
411 DATA 32717,-6902,-7715, 201897,-8948, 74, 22237, 6913, 33,-13568, 12345, 6401 
, 1320, 140731, 6379,-5132, 26381,-8956, 1382,-8995, 4725, 29917,-B941, 4206, 263 
33, 17937, 9032, 9054,-10922,-8763, 94, 22237,-8959, 2158, 26333,-18679, 21229, 
23096 
112 DATA 28301,-B942, 4966, 24285, 5646, 6400,-11839,-14891,-16870, 1568, 8979,- 
2032, 8472, 28381,-0960, 358,-8925, 117, 29917,-8959, 4718, 26333,-B941, 3166, 2 
2,-8935, 4725, 29917, 6163,-8780, 5323, 10310,-0926, 2670, 26333, 17931, 24285, - 
8942 
113 DATA 4950, 294/5, 29219, 28381,-8960, 358, 1048, 46, 38,-15935,-25917,-8950, 
4718, 26333,-6893, 24285, 5644, 6400,-5147, 28381,-B954, 1894,-4681,-6830,-7743 
, 10449,-4862,-8784, 3150, 6, 24285,-8954, 1078,-7723, 13851,-4832,-8776, 1653, 
29917 . 
114 DATA-B953, 2158, 26333, 11047, 30173,-8952, 2420,-19432 
121 DATA 32717,-6902,-223, 32511, 1534, B24,-974,-8896,-8735, 2126, 18141,-8951, 
2670, 26333, 32267, 24099, 22051, 26381,-8956, 1382, 30984, 10416, 2092,-10811, 
-8731, 3150, 148141, 2317, 2539,-8/25, 3654,-16870, 1064, 4152, 1048, 4899,-3056, 
2273 
122 DATA 5727, 6400,-15919,-11240, 28381,-8954, 1894,-10799,-18457, -4829,-6830, - 
7743, 2277, 5727, 6400,-7701, 29661,-0954, 1906,-18195,-11807, 6337,-6891, 2261, 
28361,-B954, 1894, 6, 2383, 30173,-8954, 1908,-7727, 1771, 20224,-20243, 26381, 
-8952 
123 DATA 2406,-8925, 2165, 29917,-15607, 2714 
200 DEFFNSKSCAS, AX)I=LEFTSCAS, -CAX=2)%3)+MIDSCAS,S,-(AX=1)81) 
204 DEFFNZPXCASLX,ADXI=-(CALX-INTCALZ/AZX) RAZX) DO) MINTCASLZ/ADX) 41 CALX-INTCASLX/A 
2%) AZX) =D) NINTCALX/ADX) 
202 DEFFNPNSCAS, AX)=RIGHTSCAS,12)+" “+MIDSC”  “+LEFTSCAS,3)+" 
Z=1)04,-(AXS2)NI-(AX=1)07) 
203 DEFFNMPICAX)=(PEEK(16424)-14)2AX 
900 J=0:C1=0:C2=0:R1=0:M08=“TECLE <C> PARA CONTINUAR“ :M1$=“TECLE <M> PARA VOLTAR 
AO MENU” :M2$="TECLE A LETRA DE SUA OPCAO“ :M35=" (L) PARA LISTAR OUTRO DISCO” 
340 DIMUB(S7), US (69), US(34) UG (100), U3(78) ,UA(122),U7(B1),DISC79),CTSC999),MSCII 
, 
3414 MSC(0)=""3M$C1)="COLOQUE O DISQUETE A SER CATALOGADO NO DRIVE ” 
942 M$(2)=“CRIANDO/ATUAL IZANDO” :M$(3)=" INSERINDO” :M$(4)=“DELETANDO” 2MS(5)="LISTA 
NDO“:M$(6)="LOCALIZANDO” MS (7)="SALVANDO” M$ CB)="TERMINANDO” EMS(9)="TIRE O DISQU 
ETE CATALOGADO DO DRIVE O 
E COLOQUE O DISQUETE COM O PROGRAMA nx CATALOGO mm” 
3943 M$(10)="PROGRAMAC M$ (11)="DISCO”2M$(12)="LETRA “2M$(13)="DISCO “ 
320 FORX=0TOS7:READUB(X) NEXT :FORX=0TO6PEREADUS (X) ENEXTEFORX=0TOZOFREADUI CX) ENEX 
TIFORX=0T034:READUS(X) ENEXTEFORX=0TOL0OOFREADUS(X) ENEXT 2 FORX=0TO122:READUA (X) 3 NEX 
T:FORX=0TOB4 EREADUZ (X) NEXT 
341 C5(2)=16 
342 CB(2)=8HF900:CB(I)=CO(2):CB(S)=VARPTR(DS)ECB(6)=02CB(7)=13CBXCB)=VARPTRCSKS) 
343 CÍ(2)=8HBAZFECLC3)=CL(Z)2CIC4)=03CICS)=VARPTR(DS) 2CÍCB)=VARPTRCSKS) 
400 DEFUSRÍ=VARP TR CUL (0)) EDEFUSRI=VARP TR (UICO) ) EDEFUSRASVARP TR (UA (0) ) 2ZDEFUSRS=VA 
RPTRCUSCO)) DEFUSRá=VARP TR (US (0) ) EDEFUSRZ =VARP TR (UZ (0) ) 2DEFUSRO=VARP TR (UB(O)) 
499 G0TO10000 
8402 ZN$="“27%=13PRINTOZPX.ZFS; 


“,-(AX=D)NI-(Á 
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diretório, o número de nomes cataloga- 
dos, exibido no extremo superior do ví- 
deo, será atualizado. 


A FUNÇÃO DE CADA OPÇÃO 


A primeira opção possibilita criar um 
arquivo pela primeira vez ou atualizar 
um catálogo já existente. Esta escolha é 
realizada pelo próprio programa, ou 
seja, quando não existir nenhum nome 
de programa arquivado, a opção é consi- 
derada como ; caso contrário, 

estará realizando uma ALTERA- 
ÇAO. Uma ALTERAÇAO torna-se ne- 
cessária sempre que você quiser retirar 
ou inserir um programa do/no disquete: 
com esta opção, você vai deletar o dire- 
tório catalogado anteriormente e inserir 
o novo. 

Você vai utilizar a opção dois quan- 
do sua discoteca aumentar e for neces- 
sário usar outro disquete para guardar 
seus programas novos. Esta opção possi- 
bilita inserir no catálogo o diretório de 
um disquete novo. 

A opção três é a oposta da dois, ou 
seja, serve para você retirar o diretório 
de um disquete inteiro do catálogo, por 
motivo de perda ou extravio. 

As opções quatro, cinco e seis não re- 
querem a leitura de nenhum diretório de 
disco, mas, apenas, o uso do arquivo-ca- 
tálogo que se encontra na memória de 
seu micro. Este arquivo encontra-se 
sempre classificado por ordem de pro- 
grama, de modo que toda consulta ao 
arquivo se torna extremamente rápida, 
assim como a listagem do catálogo, clas- 
sificado por ordem de programa. 

Você pode querer verificar, através 
do vídeo de seu micro, o conteúdo de 
um determinado disquete ou listar o 
conteúdo de todo o catálogo, classífica- 
do por programa ou por disco, no vídeo 
ou na impressora. Estas são as possibili- 
dades que lhe são oferecidas pela opção 
quatro. Não se esqueça, porém, de que a 
a classificação por programa já está reali- 
zada e não requer nenhum tempo adi- 
cional, ao contrário da classificação por 
disco que, em testes realizados, levou 18 
segundos para classificar um arquivo de 
1000 nomes de de programas (número 
máximo de nomes permitido). 

Um fato interessante neste programa 
é que, se você pedir a listagem, no vídeo 
ou na impressora, classificada por disco, 
o arquivo-catálogo não tem sua ordem 
alterada, isto é, ele continua classificado 
por nome de programa, apesar de você 
receber os dados na ordem em que pe- 
diu. Para verificar isto, peça para que o 
catálogo lhe seja mostrado no vídeo em 
ordem de programa: você verá que não 
houve tempo de classificação. Depois 
peça que lhe seja exibido por ordem de 
disco: desta vez ele será classificado. 

Veja bem que o programa foi organi- 
zado em termos de classificação por pro- 


grama. Se você pedir uma listagem do da 


8403 Z$=INKEYS: IFZ$=""THENGOTOB403ELSEIFZX)OANDINSTR( “1234567890” ,Z75) THENPRINTAZ 
PX+ZX-1,25; 2 ZN$=ZN$+25:ZZ=INSTR(ZX+1,ZFS,CHR$(95)) 2GOTOBADIELSEONINSTR(CHR$(B)+C 
HR$(31)+CHR$(13),Z$)G0TOB402, B402, 8407 :GOTOB403 
8407 IFZX>OTHENB403ELSERETURN 
B802 ZX=0:PRINTOZPX, STRINGS(Z1%,95);* 
8804 ZS=INKEY$: IFZ$=""THENSBO4ELSEIFZX=71ZTHENSGOSELSEIF INSTR(Z1$,Z$)THENPRINTOZ 
PX+ZX,25S;3Z2X=2X+1:G0TOBBO4 
8805 ONINSTR(CHRS(8)+CHRS(31)+CHR$(13),Z$)GOTOBBO7, 8802, BB10:GOTOBBO4 
B807 ZX=-(Z%)0)n(ZX-1)3PRINTOZPX+ZX,CHR$(95);3GOTOBBOA 
8810 IFZX=OTHENGOTOSS04ELSEPRINTAZPX+ZX, STRINGS(ZIX-ZX,” “); 
8811 IFZX)0THENGOSUB9202:RETUPNELSEZNS=""":RE TURN 
9002 ZS=INKEY$S: IFZ$=""THEN9O02ELSERETURN 
9202 ZN$=" “2POKEVARPTR(ZNS),Z1XE:POKEVARPTR(ZNS)+2, INT(ZPX/256)+603POKEVARPTR (ZN 
$)+1,ZPX-INT(ZPX/256)*2562RETURN 
10000 CLS 
10002 PRINTOO, “AUTOR: “,925,"** CATALOGO wm”;964,“LAWRENCE F. KING “;992,“VERSAO 
2" 0128, STRINGS (64,140);9832, STRINGS(64,140);3ZP=120:ZFS=STRINGS(2,95)+”/"+STRI 
NGS (2,95)+"/"+STRINGS(2,95) 
10003 ONERRORGOTO10006:GET1, 1 
10004 CL(0)=12C1(1)=12C1(5)=VARPTR(DS) :ONERRORGOTOO:PRINTDA6Z, “LENDO ARQUIVO CAT 
ALOGO/TXT DO DISCO”; 
10005 FORX=1TOLOFC(1):GETL,XIPRINTOGO, USING"MNNH” 4X; 3 J=USRÍCVARPTRCCI CO) ))INEXTIG 
oTO10010 
10006 IFERL=10003AND(ERR/2+1=52) THENRESUME 10040 
10007 PRINTOB96,CHR$S(31);“ERRO “sERR/2+15“NA LINHA “;ERL; ICLOSESFORX=0TOLO00:NEX 
TECLS:END 
10010 PRINTOB96.CHR$(31),9126,055,960, USING"HHNH”;C1(4);: ONERRORGOTOO 
10020 PRINTOZ256,* 
«1> CRIAR/ATUALIZAR CATALOGO 
<2> INSERIR DIRETORIO NO CATALOGO 
(3) DELETAR DIRETORIO DO CATALOGO 
(4) LISTAR CATALOGO 
(5) LOCALIZAR PROGRAMA 
(6) SALVAR CATALOGO 
(7) TERMINAR”; 
10021 PRINTOBP6,CHRS(31); 2 IFPEEK (15490) =320RPEEK (15480) =9STHENPRINTOPLZ, CHRS(3L) 
;“ENTRE A DATA DE HOJE ... (ENTER); :GOSUBB402:ZFS="" á 
10022 PRINTOBL, STRINGS(37,” “);992,"VERSAO 27; 0896,CHR$(31) 9914, “ENTRE O NUMERO 
DA TAREFA ...”; 7GOSUB9002:Ri=INSTR(“1234567”,2%)2 IFRi=OTHENLDOZ2ELSETFR SC 4THENZ 
FS="(4" 
10023 IF(CL(4)=DAND(RI=10RR1)5))OR(CI(4))0)THENX=3ELSEIFCÍ (4) =DANDRÍ )STHENX=2ELS 
EX=1 
10024 ONXGOTO10025, 10026, 10029 
10025 PRINTO92L,CHR$(31);“0PCAO INVALIDA” ;9976,M15;:GOSUB9002:G0TOL0022 
10026 PRINTO9DO,CHR$(31);“NAO EXISTE NENHUM DADO NO CATALOGO, VOCE SO PODE CRIAR 
-LO”,9976,M1$;:GOSUB9002:607010022 
10029 PRINTOBP6,CHR$(31);D64+(64-LENCMSCRÍ+1)))/2,MSCRIHL);ONRÍGOTOS 1000, 11000, 
11000, 12000, 13000, 14000, 14000:607010022 
11000 GOSUB38000:0NR1G0TO11004,11003,11001 
11001 IFJ)OORCÍ(4)=0THENI1OLDELSEPRINTOS6O, “ESTE DIRETORIO NAO EXISTE NO CATALOG 
0...“59978,M15;:GOSUB9002:60T010010 
11003 IFJ=OTHENI 1010ELSEPRINTO460, “ESTE DIRETORIO JA EXISTE NO CATALOGO. ..”;9978 
,M1$; :GOSUB9002:60T010010 
11010 PRINTO128,CS$;: IFRi=3THENIS1 LOOELSEIFDN)-1THENGOTO1 101 LELSEPRINTDA63, “QUANT 
OS DRIVES ESTAO DISPONIVEIS 7 ”;:ZP=500:71$="12":71=1 :GOSUBBB02:DN=VAL(ZN$)-L 
11011 PRINTO128,C5%;9896,CHR$(31),9392,M5(1);DN; 9980, MOS; :GOSUB 9002 :PRINT9L28,CS 
$;9896,CHR$(31); 
11020 CS(0)=VARPTR(DISCO))5CS(1)=8HF900: J=USRSCVARPTR(CS(0))) 
11030 CB(6)=DN: J=USRB(VARPTR(CB(0)))3 IFCB(4)=OTHENPRINTO467, “DISQUETE NAO CONTEM 
DADOS” ;99141,M1$;:GOSUB9002:60T010010 
11050 Có(0)=VARPTR(DISCO))3Có(1)=CB(4)-12 J=USR6CVARPTR(C6(0))) 
11070 X=0:PRINTOPLO,CHR$(31);“DIRETORIO A SER INSERIDO NO CATALOGO” 9192,” ;2IFC 
B(4)<=40THENGOTO11071ELSEFORX=0T0392PRINTDISCX); :NEXTX:PRINTO976, MOS ; 1 GOSUB 9002 
11071 PRINT9128,C5$,9960,CHR$(31);9192,7";:FORX=XTOCE(4) PRINTDISCX) ; SNEXTX 
11072 PRINTOP63, CHR$(30) ;M1S;” “;MOS; :GOSUB9002:PRINT9L28, CSS; 9896, CHR$(31);1 
IFZ$="M“THENGOTOLO020ELSE : ONR$G0T04114100, 414200 
11100 IFC1(4)=0THENGOTOS 1201ELSEGOSUB3B300:PRINTOP63,M1S;” 
SUB9002:PRINTOL28,C5$;9896,CHR$(31); 2 IFZS="M“THENGOTOLOOLO 
11401 GOSUB38400:IFZ1-C1(4)=00RRi=3THENGOTOLODLO 
11200 IFCB(4)+C4(4)(=1000THENS1204:G0TO11201ELSEPRINTO92L,CHR$(31); “NAO HA MAIS 
ESPACO NO CATALOGO PARA ESTE DIRETORIO” ;9976,M15;:GOSUB9002:PRINT9L28,CSS; 19896, 
CHR$(31);:G0T040010 
11201 GOSUB38200:PRINT9128,CS$;:GOTOL0040 
12000 PRINT9128,CS$;9384,” 
<D> DISCO 
€C) CATALOGO”; 9977, M25; :GOSUBP002:ONINSTR(“DC”,Z$)G0T012100, 12200:G0T012000 
12100 GOSUB38000: IF JJOTHEN12110ELSEPRINT9L28,CS5;9463,70 DISCO NÃO SE ENCONTRA N 
O CATALOGO” ; 9962, CHR$CIL);MIS;” “;M3$; :GOSUB9002: IFZS="M”THEN10010ELSES2100 
12110 GOSUB38300:PRINTIP62,CHR$(30) ;M1$;” “ ;M3$; :GOSUB9002: IFZ$="M”THEN10010E 
LSE12100 
12200 CS(0)=VARPTRICTS(0))2C5(1)=8HBAZF: J=USRSCVARPTR(CS(0))) 
12210 PRINT9L28,C5$,9896,CHR$(31);9384,” 
<P) CLASSIFICADO POR PROGRAMA 


“4MOS;CHR$(30); 360 


<D) CLASSIFICADO POR DISCO” ;9977,M25$;:GOSUB9002:Z1=INSTR(“PD”,ZS):P 
RINTO128,C5%;9896,CHR$(31);:0NZ1G0T0142230,12220:G0T012210 
12220 PRINTO46B,"C LASSIFICANODOGECACO)=VARPTRICTS(O))EC6(L)=CL(4)-1: 
J=USROCVARPTR(C6(C0))) 
12230 PRINTO364,” 
a €V> SAIDA NO VIDEO 


(1) SAIDA NA IMPRESSORA” ;9977,M2$;:GOSUB9002:PRINTOL28, CSS; 9896, CHR 
$(31); 2ONINSTR(“VI”,Z$)60T012300,12410:607012230 
“12300 0NZ160T0123014,12350 
12301 FORX=0TOC1(4)-127=192+INTCC(X-INT(X/30)430)/3)464+4+208(X-INT(X/3)43) PRINT 
OZ,RIGHTSCCTSCX),12)+” “+LEFTSCCTS(X),3);5 IFZ(B12THENNEXTELSEPRINTAD6I, MOS ;” 
“4M1%;:GOSUB9002: IFZS()“M“THENPRINTOL28,CSS;9694,CHR$(31);ENEXTXELSEX=C4 (4) ENEXT 
x 


123902 IFZ=B12THENLOOLDELSEPRINTA977,M1$S;:GOSUBP0OZ:PRINTOL28,CSS;:GOTOL0040 

12350 DNS=LEFTSCCTSC0),3):PRINTOPLZ,CHR$(31);“LISTANDO DIRETORIO DO DISCO “;a941 

+DNS;0192,"“,3Z=0:FORX=0TOCÍ(4)-1L:ZNS=LEFTS(CTSC(X),3) 

12353 IFCCX-Z-INTOCX-Z)/40)040<()0)0RX=0) ANDDNS=ZNSTHENPRINTRIGHTS(CTS(X),142)+7 
“q :NEXTXELSEPRINTOPHO, MOS; :GOSUBPO02:PRINTIL28,C5$%,9977,CHR$S(30);9192,RIGHTS(C 

T$(X),12),: IFONS=ZNSTHENNEXTELSEDNS=ZNS:IPRINTOD4L,DNT;9208,7";3Z=X:; NEXT 





PROGRAMA QUE ARQUIVA... 





catálogo no vídeo, classificada por pro- 
grama, você poderá voltar ao menu 
quando bem lhe aprouver, o que não 
acontece na listagem de classificação por 
disco, onde somente ao final é que lhe 
será permitida a volta ao menu. 

Normalmente, se você tiver impresso- 
ra, a opção cinco talvez não lhe seja de 
grande ajuda, já que você poderá consul- 
tar a listagem feita para localizar um de- 
terminado programa. Se você não a pos- 
sui, no entanto, esta opção ser-lhe-á de 
grande utilidade. Mas, em ambos os ca- 
sos, digamos que você não saiba o nome 
completo do programa, ou se lembre 
apenas das duas ou três primeiras letras, 
ou, quem sabe, por algum motivo você 
queira saber quais os programas que co- 
meçam com uma determinada letra. A 
opção cinco é que lhe dá estas facilida- 
des, além da localização ser bastante rá- 
pida: você mal entrou o nome do pro- 
grama e o número do disquete já lhe é 
fornecido. 

Agora: já pensou no que você vai sen- 
tir quando, após um exaustivo trabalho 
de classificar 30 disquetes, houver um 
pique de luz, ou então se sua mulher, 
depois de cinco minutos chamando-o 
para almoçar, resolver apertar o RESET 
de seu micro??? Bem, para prevenir es- 
tas situações, você pode salvar seu catá- 
logo várias vezes, voltando, em seguida, 
ao menu para continuar suas laboriosas 
atividades. Isto é o que lhe possibilita a 
opção seis. O arquivo Catálogo/TXT 
somente será arquivado se ele tiver real- 
mente sido alterado; caso contrário, na- 
da ocorrerá. Só as opções um, dois e três 
é que alteram o arquivo. 


OBSERVAÇÕES FINAIS 


Lembre-se de que-o arquivo Catálo- 
go/TXT existente no disquete só será 
atualizado através das opções seis e sete. 
Esta, após a gravação dos dados, volta 
para o BASIC-Disco, encerrando as ativi- 
dades. Nunca encerre suas atividades te- 
clando BREAK ou RESET, pois seu ar- 
quivo não terá sido atualizado e todas as 
alterações que porventura você tenha 
realizado estarão perdidas. 

Tecle o programa tal qual está na lis- 
tagem. Não o modifique, coloque todos 
os pingos nos is, senão você poderá ter 
sérios problemas para conseguir rodá-lo. 





Lawrence F. King é programador há seis anos 
na Embratel, trabalhando principalmente com 
a linguagem Assembler no software do SICRAM 
— Sistema Computarizado de Retransmissão 
Automática de Mensagens. 
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12355 PRINTO977,M1$; !GOSUB9002:PRINTOL28,C55;9896,CHR$(34); 4607010010 

42410 CA=INTIPEEK (16427)/(-(Z1=1)N20-(Z1=2)016))ECO=PEEK (16424) +12C9(1)=Ci6A)-Ã? 
C3(3)=4:C3(4)=13C3(5)=-(Z1=1)442C3(6)=03)=0 

12420 CIC =CI( A) = JECI(6)=CI(6)+JECICO) =VARPTRCCTSCCIC6))) ESKS=FNSKSCCTSCCICSD), 
LI ECIC2)=VARPTRCSKS) * J=USRICVARPTR(CICO) D) 3 LF J)OTHENGOSUB38400:G0TO12420EL SE J=C 
4(4)-C3(6) :G0SUB38400:LPRINT:G0T010010 

13000 PRINTAS96, CHR$ (31 );9128,055,9393, “ENTRE O NOME DO PROGRAMA + 


O PROGRAMA ENCONTRA-SE NO DISCO 1”; 1ZP=420:71=12:718=728+"/":GOSUBBBOZ: 
SKS=LEFTSCZNS,Z) CÍ (0)=12C1(5)=VARPTRCPNS) CL (6)=163C1(7)=42C4(10)01 5700 
13001 “J=USRA(UARPTR(CI(0)))2 IF J)OTHENPRINTOSSO, LEFTSCPNS, 3) 59420,RIGHTS(PNS, 12) 
:Z=1:PRINTOPOS, CHR$(IL);M1$;90978,7<C) PARA CONTINUAR À PESQUISA”; :GOSUB 9002: IFZS 
H”THENS0040ELSECA (0) =C4 (0)+1 :PRINTO4ZO, CHR$(30) [9558 , CHR$(30) 59896, CHR$(31) 546 
07013001 
43002 IFZ=OTHENPRINTAS20,"0 PROGRAMA NAO SE ENCONTRA NO CATALOGO”; 
13005 PRINT95S58,” “ 30907,CHR$(31);M1$59977,7<L) PARA LOCALIZAR OUTRO PROGRAMA 
“ 2 GOSUB 9002: IFZ$="M"THEN1 DOS0ELSE 13000 
14000 PRINT9L28, CSS; 3 LFZFS()"(4” THENGOTOL 4004ELSELFCA (4) =OTHENGOTOS ADOSELSELF DN) 
OTHENIAOOLELSEPRINTOA6I, N$(9) 9916, MOS; 7GOSUB9002:PRINT9126,C5$,9896,CHR$CSL)S 
140041 KILL”CATALOGO/TXT” 2 0PEN“R”,1,“CATALOGO/TXT”, 162PRINTOASE, “GRAVANDO Novos D 
ADOS NO ARQUIVO CATALOGO/TXT”; 3CÍCL)=0ECL(S)=VARPTR(DS) 
14003 FORX=ITOCÊ(4) CL (0)=X3 J=USRA CVARPTR (CA (0))) 3PRINTOSOS, X:PUTA,XENEXTEPRINTO 
448, CHR$(30); 
14004 IFRi=6THENZF $="":G0TOL0010ELSECLOSE:CLS:END 
14005 KILL“CATALOGO/TXT” 3CLS:END 
38000 PRINTOL 28, CS$;9896,CHR$(31) 9463, CHR$(30); “ENTRE A IDENTIFICACAO DO DISQUE 
TE »; 321 =94218=228:2P=500:GOSUBBBOZ! IF Z=3THENGOTO3800LELSEPRINTA9OS, CHRS(IL) 5 “EN 
TRE À IDENTIFICACAO COM TRES CARACTERES” ; *FORX=0TOL000:NEXT:GOTOIB000 
38001 ONS=2N$ : SK $=DNS CA (0)=14C4(5)=VARPTRCPNS) ECÍ(6)=162C4(7)=02C1(10)=18 J=USRA 
(VARPTR(CL(O)))SPRINTOL28,CS$;9896,CHR$(31); RETURN 
38100 PRINT9L20, CSS; :SKS=ONSICA (0)=12C1 (5) =VARPTR(PNS) 54 (6)=16201(7)=05Cí (10700 
SCI CB)=VARPTR(SK$):ZL=C1 (4): PRINTIZ6S, “DELETANDO PROGRAMAS DO DISCO “;DN$S;” DO 
CATALOGO”; 
38101 J=USRACVARPTR(CL(0)))5 IF J=0THENIBLOZELSEGOTOIS104 
38102 PRINTO460,"0 DISQUETE “;DNS;” CONTINHA” ;Z1=Cí(4);"PROGRAMAS” ; 9980,M0S; 2605 
UB9002:PRINT9ÍZB,CS%; 9896, CHR$(31); RETURN 
38200 PRINTOL28,CS%;9896,CHR$(31); 0266,“ INSERINDO DIRÉTORIO DO DISCO “;DNS;” NO 
CATALOGO”; 9463,“ INSERINDO NOME = m42C4(6)=42084(7)=122C1(5)=VARPTR(DS) 
38201 FORX=0TOCS(4)=4 E IF J= 1 000THENGOTO38203ELSELSE TDS=DNS+DIS(X):PRINTOADO, CHRS( 
30) 405; 3 J=USR7 (VARPTR(C4(0))):NEXTXERETURN 
38202 RETURN 
38203 PRINTAS96,CHR$(31);nnm ERRO nus LINHA 38201 = ESPACO DO CATALOGO NAO EH s 
UFICIENTE PARA CONTER ESTE DIRETORIO. “:X=CB(4)+10:NEXTIRETURN 
38300 PRINTO428, CSS; !SKS=DNSECL(O)=1:C4 (5)=VARPTR(PNS) CÍ (6)=163C1(7)=05C1 (10/04 
3CÍ(B)=VARPTR(SKS) SPRINTOPOS, CHR$(31); “DIRETORIO ATUAL DO DISCO “;DNS;” NO CATAL 
0607 ;9192,7";3Cí1(0)=0:X=-1 
38301 X=XILICA CO) =C4 (0) +13 J=USRACVARPTR (CS (0))) 3 IF J=OTHENGOTOISI0ZEL SE LF (CX INTC 
X/40)440))0)0RX=0THENPRINTRIGHTSC(PNS, 12)+" ” ; 3607038301: ELSEPRINTO976, MUS; GO 
SUB9002:PRINTA960, CHR$(30) [9128,05%,9192,"";RIGHTSCDS, 12), 3607038301 ” 
38302 RETURN 
38400 LF J)FNHPX (CL) THENC3(7)=J-FNHPXCCA) E J=FNHPXCCA) E GOSUB3BS00: J=C3(7) 2 GOTOIB4O 


() 

38500 IFC2+6+FNZPXCJ,C1)<=PEEK (16424) THENGOTO38700 

386400 LPRINTCHR$(11) ZP=1202C2=71171=8:G0SUB9202471=C21LPRINTELPRINTSTRINOS (PEEK 
(16427)-22,” ”), "EMITIDO EM + “;ZNSILPRINTILPRINTSTRINOS( (PEEK (16427) -(38+LENCHS 
(714+49))))/2,” “Is "LISTAGEM DO CATALOGO CLASSIFICADO POR “4MSC(ZL+9); *C2=8 

38700 LPRINTELPRINTELPRINTELPRINTSTRINOS(PEEK (16427) -6+(71=1)m1+(71=2)03, “M$ 
(Z1+11);SKSILPRINTSLPRINTECO=C2+6E 

38800 20: FORX=C3(6)TOCI(6)+J-1 3 LFZ-INTCZ/C1)6C4 DOTHENZEZ+4 ELPRINTENPNSCCTS(X),Z 
1); SNEXTXELSELPR INT SLPRINTSTRINGS((PEEK (16427)-Cim(-(Z1=1)n20-(7102)816))/2,€ eu 
sENPNSCCTS(X),Z1);52=12:NEXT 

38801 C2=C2+ENZPX(J,C1) RETURN . 


214-8845 


VOCÊ TEM UM MICRO? 
NÓS TEMOS 


Suprimento 


DISKETTE 5 1/4” E 8” 
FORMULÁRIO CONTÍNUO 
FITA IMPRESSORA 
FITA K-7 CURTA DURAÇÃO 
ETIQUETAS ADESIVAS 


PASTA P/FORMULÁRIOS 
80 E 132 COL. 


ARQUIVOS EM ACRÍLICO, 
RACKS E PASTAS 
PARA DISKETTES. 


REBOBINAMOS QUALQUER FITA 
PRONTA ENTREGA 
QUALQUER QUANTIDADE 
GARANTIA E QUALIDADE. 


Suprimento 
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Um algoritmo e um circuito para a gravação de memórias do tipo PROM 


através do próprio microcomputador 





Um método fácil 
de programar PROMs 


o desenvolvimento de software 
para sistemas baseados em mi- 
croprocessadores, o resultado 


final de um desenvolvimento 
deve ser sempre transferido para algum 
tipo de PROM para uso posterior do sis- 
tema. Nestes casos, é preferível transfe- 
rir O software desenvolvido diretamente 
das memórias do sistema de desenvolvi- 
mento para as PROMSs, sem a necessida- 
de de escrever e ler em um programador 
extermo. 

O circuito aqui apresentado foi ela- 
borado tendo por base um microcompu- 
tador desenvolvido no Laboratório de 
Microssistemas da EFEI — Escola Fede- 
ral de Engenharia de Itajubá, a partir do 
microprocessador 6800. No entanto, vê- 
se claramente que ele pode ser interco- 
nectado a outros sistemas microcompu- 
tadores, pois as linhas utilizadas nesta 
interligação são as de dados, de endere- 
ços, de leitura (R/W), de endereço váli- 
do (VMA), de sincronismo ( » Je de 
RESET, linhas estas disponíveis em 
todos os microprocessadores. 

Foram utilizados Adaptadores de 
Interface de Periféricos (PIA) 6821 para 
facilitar as operações de gravação e pos- 
terior verificação. 

Para a temporização de gravação, 
optou-se pela utilização de um monoes- 
tável externo (74L$123) controlado por 
software, com a finalidade de evitar pro- 
blemas com as frequências de operação 
dos diversos sistemas. 





Felício Barbosa Monteiro 
Celso Henrique Ribeiro 





O programa requerido para o contro- 
le deste circuito de gravação/verificação 
pode residir em um sistema monitor ou 
em alguma outra área designada pelo 
usuário, uma vez que o mesmo é relocá- 
vel. 


———— 
HARDWARE 





A figura 1 mostra o circuito desen- 
volvido, no qual foi utilizada a memória 
2716. A escolha deveu-se ao fato de sua 
simplicidade (fonte única para gravação: 
+25V), sua capacidade (2 Kbytes), ta- 
manho de palavra (8 bits), seu amplo 
uso em sistemas com microprocessado- 
res, seu processo de apagamento pela luz 
ultravioleta, sua fácil aquisição e por exis- 
tirem várias memórias de capacidades di- 
ferentes, porém com as mesmas caracte- 
rísticas de gravação que a 2716 (2732, 
2758 etc), que poderiam ser utilizadas 
tendo por base este mesmo circuito. 

Vejamos os outros componentes. Os 
integrados 74LS04, 74LS27 e 74LS42 
atuam como decodificadores de endere- 
ços dos PIAs A e B, sendo que os ende- 
reços de 8000H a 8003H referem-se ao 
PIA A e 8004H a 8007H ao PIA B. 

O CI 74LS20 tem a finalidade única 
de habilitar o buffer no barramento de 
dados quando a UCP está lendo uma 
informação proveniente deste circuito 
(linha RE). 


O PIA A tem a finalidade de endere- 
çar as diversas posições de memória a 
serem gravadas ou verificadas. Isto é fei- 
to através da porta A (PAç até PA;) e 
da porta B (PB, até PB,), o que deve 
ser levado em conta na programação do 
PIA. 


O PIA B tem cinco finalidades: 


— fornecer dados a serem gravados nos 
endereços especificados pelo PIA A, 
através da sua porta B; 
— receber, através de sua porta B, os da- 
dos especificados pelo PIA A para serem 
verificados; 
— selecionar gravação ou verificação de 
dados da memória através da porta 
A (PA,) (O = verificar, 1 = gravar); 
— produzir o pulso de gravação, dispa- 
rando, para tanto, o monoestável 
7418123, através da linha PAo, que 
deve estar ajustado para um pulso míni- 
mo de 2ms e máximo de 55 ms; 
— verificar o término do pulso de grava- 
ção, utilizando, para isto, a linha PA». 
Deve-se notar na figura 1 que a porta 
B do PIA A ainda dispõe das linhas PB3 
até PB», fato que possibilita expandir a 
memória a ser gravada para até 16 bits 
de endereço (64 Kbytes de dados). 
Convém salientar que a fonte de ali- 
mentação para gravação/verificação 
(+ 25 V) só deve ser ligada ao pino 21 
do CI 2716 após o sistema sofrer um 
RESET de duração igual a pelo menos 
oito ciclos do sinal 0,» por causa da 
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GNO e é é fai 
= +5 R/W 0; RESET 


Figura 1 — O circuito de gravação /verificação. 


necessidade de se levar a linha PAç do 
PIA B ao nível lógico O antes de se ini- 
ciar a gravação. 

Aqui cabe ainda abrir um pequeno 
parênteses para melhor explicar o uso da 
fonte de alimentação de 25V. 


—e e 
A FONTE DE 25V 





A memória EPROM 2716 pode tanto 
ser gravada como lida (verificada) com o 
seu pino 21 ligado a uma fonte de 25t 1 
volt, com corrente máxima de 30 mA. A 
diferença de uma condição para outra é 
realizada através do pino 20 (G),que de- 
ve ser colocado em nível alto (+5V) para 
gravação e baixo (OV) para verificação. 
O pino 21 deve ser conectado a +5V 
para operação normal da memória e, 
neste caso, o pino 20 (G) deve ser ligado 
a O volts. 

No nosso caso, que compreende ape- 
nas gravação e verificação, optamos por 
deixar o pino 21 constantemente ligado 
a +25V e diferenciar entre gravação e 
verificação através do pino 20 (G). 
Assim, a fonte de +25V pode ser ligada 
e desligada através de uma chave, tendo- 
se (como já foi dito) o cuidado de só 
ligar a chave (fonte de +25V) após a rea- 
lização do RESET, por causa de o nível 
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lógico inicial no pino 20 (G) ser desco- 
nhecido, uma vez que este pino está 
alimentado através de uma das saídas do 
PIA B (6821). Na figura 2 está ilustrado 
o funcionamento desta memória. 

Assim sendo, é lógico que se poderia 
utilizar O próprio microprocessador para 
controlar a fonte de +25V, através do 
PIA e um transistor ou SCR. 

A fonte de + 25t1V — 30 mA pode, 
devido às suas características simples, 
ser facilmente construída com regulador 
de tensão ajustável do tipo LM 317 
(vide pg. 175, Linear /Switchmode Vol- 
tage Regulator Handbook, Motorola). 


E 


O SOFTWARE 





A figura 3 é o algoritmo necessário 

para a inicialização dos PIAs, para a gra- 
vação e para a verificação, utilizando o 
circuito da figura 1. Neste algoritmo, as 
posições de memórias RAMs utilizadas 
receberam as seguintes denominações: 
e CONT. GRAV. — Contém em com- 
plemento de dois o número de vezes que 
se deseja que uma determinada posição 
seja regravada quando apresentar erro. 
Em nosso programa, foi utilizado o en- 
dereço 0006H com um número de regra- 
vações igual a 5. 





e END. GRAV. — Contém o endereço 
da posição da EPROM a ser gravado/ve- 
rificado. Utilizamos os endereços 0000H 
e 0001H. 


e END. COP. — Contém o endereço da 
posição de memória a ser copiada na 
EPROM. Utilizamos os endereços 
0002H e 0003H. 


e END. FINC. — Contém um a mais 
que o endereço do último conteúdo a 
ser copiado. Foram utilizados os endere- 
ços 0004H e 0005H. 

O programa apresentado em Assem- 
bler, ao final, foi desenvolvido a partir 
deste algoritmo e é próprio para siste- 
mas baseados no microprocessador 
6500. Entretanto, a partir deste algorit- 
mo, pode-se facilmente implantar um 
programa para sistemas baseados em ou- 
tros microprocessadores. 

Para indicação de PRONTO ou de 
ERRO foi usada a sub-rotina MENSAG.., 
do monitor do sistema de desenvolvi- 
mento. Esta sub-rotina simplesmente 
mostra em display a palavra formada 
pelos modelos de caracteres representa- 
dos pelos bytes que seguem a instrução 
de chamada desta sub-rotina. Em seu 
lugar, pode-se usar qualquer outra sub- 
rotina para sinalizar estas duas condi- 


ções. 
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IMPRIMIR MENSAGEM 
DE PRONTO 


COLOCAR EM REGISTRO (A) 
O DADO A SER GRAVADO 


ATUALIZAR END. CÓPIA 


Figura 2 

— Algoritmo 

de funcionamento 
da memória. 








NºZ deve haver maiores dificuldades para a 
montagem, uma vez que a interligação pi- 
no a pino dos componentes jd está indicada na 
figura 1. Pode-se facilmente construir um 
impresso para isso através de desenvolvimento 
ou mesmo com a utilização de placas padrões. 
Além disso, como opção em face do pequeno 
número de componentes envolvidos, a monta- 
gem em protoboard pode ser utilizada. 

O material necessário é o seguinte: 


— 741504 — 1 peça; 
- aa ir 
“. — < peças; 
— 741542 - 1 : 
— 7418123 — ! peça; 











Saída desabilitada 


Deste — A PCS RE Rc E 
Dado 
Figura 4 


— 6821 - 2 peças: 
— 2716 — 1 peça (memória a ser gravada). 
Capacitor: 


— 1 capacitor de poliéster metalizado 
2,24 Fx63 volts. 
Trimpot: 

- 1 Trimpot de 47k 8. 


Soquete 
— 1 soquete de 24 pinos tipo zero Force 
textool. 

O conector do circuito para o sistema de 
desenvolvimento deve ser escolhido de acordo 
com as facilidades apresentadas pelo sistema 
do usuário. 

Na figura 4 podemos ver o funcionamento 
desta memória. 








Ceiso Henrique Ribeiro e Felício Barbosa Monteiro são engenheiros eletricistas feletrônicos e 
professores da Escola Federal de Engenharia de Itajubá nas áreas de Eletrônica Digital e Micro- 
processadores. Além disso, fornecem treinamento e consultoria a empresas nestas áreas, através 
da FUPAI — Fundação de Pesquisa e Assessoramento à Indústria. 








UM MÉTODO FÁCIL .... 


“INICIALIZAÇÃO PIAS* 


CE FF04 
FF 8000 
PF 8002 
CE 0304 
FF 8004 


*PREPARAR PROM PARA GRAVAR* 
86 NOVPOS LDA 
STA 
LDA 
STA 
LDA 
STA 
LDX 
STX 
LDA 
STA 
LDA 
STA 


“ATUALIZAR END.GRAV. 
FE 0000 LDX 
08 INX 
FF 0000 STX 


*VERIFICAR FIM DE GRAV.* 
FE 0002 LDX 

BC 0004 CPX 
26 0A BNE 
BD FDSC JSR 
67 057E PCC 
76 OFFE FCC 
3E WAI 


ENDFINC 
GRAVAR 
MENSAG. 


“GRAVAR E ATUALIZAR END.COP,* 
A6 00 GRAVAR LDA A 
08 INX 
PP 0002 STX 
B7 8006 STA 
86 03 REGRAV LDA 
P7 8004 STA 
c6 7D LDA 
SA TEMPO DEC 
26 FD BNE TEMPO 
P6 8004 FIMPUL LDA 


28 FB BMI FIMPUL 


*PREPARAR PARA VERIFICAÇÃO* 
c6 00 LDA B 

F7 8007 STA B 

CE 0004 LDX 

FP 8006 STX 

c6 00 LDA B 

F7 8004 STA B 


*VERIFICAR E REGRAVAR* 
8006 LDA B 
CBA 
BEQ NovPos 
LDA 
STA 
LDA 
STA 
LDX 
STX 
“VERIFICAR FIM DE REGRAV.* 
7C 0006 INC CONTGRAV 
26 c3 REGRAV 
B7 PDSC MENSAG 
4F 0505 
FE 
3E 


Figura 3 — Programa Assembler para 
inicialização das PIAs. 
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EQUIPAMENTOS 


e Vendo micro DGT-100, 16K, 
interface, impressora, cabo para 
interface, com vídeo e gravador. 
Tel: (021) 273-1745, falar com 
Jair. 

e Vendo esquema elétrico dos 
micros: TRS-80 |, TRS-80 Color 
Computer, Apple tl Plus. Descri- 
ção do hardware dos mesmos, edi- 
tor Assembler para JR Sysdata e 
D-8000, em fita. Tratar com En- 
rique Ferri, Rua Fiação da Saúde, 
128/103, São Paulo, CEP 04144, 
SP, tel: 579-1354, à noite. 

e Radicamador — Vendo interface 
para decodificação de CW para os 
micros da linha Sinclair. Tratar 
com PY2-EMI, Renato Strauss, 
Rua Cardoso de Almeida, 654/32, 
CEP 05013, São Paulo, SP. 


SOFTWARE 


e Vendo ou troco programas pa- 
ra a lógica Sinclair. Acervo com 
mais de 150 programas. Tratar 
com Wilson Batista, Cx. Postal 
2559, Santos, CEP 11100, SP. 


e Psicologia — programas espe- 
cializados para DGT-100e CP-500. 
Já disponíveis com alguns testes 
de personalidade e diversos para 
aplicações usuais em dificuldades 
escolares infantis. Outras opções, 
sob encomenda. Contatos com 


Cleusa de Carvalho Dalton, Centro 
Clínico do Lago, 009 BI E, Si 
211, CEP 71600, Brasília — DF. 
Tel. (061) 248-0482. 









118, na linha 
830 da listagem 
Ajuste 


dúvida, a forma correta: 


















46, no 59 
parágrafo, 

linhas 4 e 5 
100, na linha 


Super Star Trek 


Star Trek foi 
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5016 da listagem 


101, a linha 8500 
da listagem Super 


numerada erradamente 


e “Vendo uma fita cassete com 
pequeno manual explicativo con- 
tendo dez programas de 1 k de 
memória, todos de minha autoria, 
dos quais sete são jogos. Podem 
ser carregados em qualquer equi- 
pamento da linha Sinclair, com ou 
sem slow. Tratar com Marcos, 
pelo tel.: (011) 63-3324, São 
Paulo. 


e Troco programas para o TK82- 
C, jogos e utilitários. Desejo tam- 
bém entrar em contato com pés= 
soas da região de Jundiaí para for- 
mar um clube de tação. 
Cartas para Edson Bueno da Silva, 
Av. Manuel Pontes Junior, 295, 
Vila Rami, Jundiaí, São Paulo, 
CEP 13200. 


e Vendo programas para Apple, 
entre eles Visicalc e Magic Win- 
dow. Tratar com Francisco pelo 
tel: (011) 832-5131 (São Paulo). 


e Troco programas para CP, TK, 
NE em fita cassete. Jogos anima- 
dos, aplicações comerciais, nacio- 
nais e importados. Tratar com 
Raul Horter na Av. Brasil, 3507, 
Cx. Postal 46, Campo Bom, RS, 
CEP 93700. 


e. Vendo programas para micros 
compatíveis com o Sinclair, princi- 
palmente jogos, como MAZOGS, 
FUNGALOIDES E INVASION 
FORCE. Aceito trocas. Interessa- 
dos escrevam para Luiz Carlos 
Fernandes, Rua Atos Damasceno, 
310, Vila Sta. Catatina, São Paulo, 
CEP 04372. 


NEWLINE 











830 LET B = (N * SXY - 
SX * SY) (N * SX2 
(8X) * * 2) 


POKE 16389,120 e 


e Troco ou vendo programas de 
jogos do CP-300/500. Tenho jo- 
gos como Galaxi, Cosmic, Meteor, 
Scarf, Attack, Pinball, Roboatak, 
Xadrez e outros, ao preço de 
Cr$ 6 mil por unidade, já com a 
fita. Tratar com Roberto Vaz 
Piesco na Rua Amélia Correa Fon- 
tes Guimarães, 152, Caxingui, São 
Paulo, SP, CEP 05617. 


DIVERSOS 


e Vende-se cadastro de firmas 
que possuem computador e outro 
de pessoas ligadas à área de Infor- 
mática. Cx. Postal 7459, CEP 
01000. 


e Expande-se hardware de DGT- 
100 e TK-85, tornando-os aplicá- 
veis ao uso científico e tecnológi- 
co. Nahal — Cx. Postal 1114717 
— ipanema — RJ — 22412. 


e Compro nº 9 de MICRO SIS- 
TEMAS. Tratar com Claudius, 
Rua Santos Dumont, 825, Petró- 
polis, RJ, tel: (0242) 42-1175. 


e Compro os exemplares de 
MICRO SISTEMAS do nº 130 
nº 16 (ou qualquer um deles); 
pago preço atual. Os interessados 
devem se comunicar com Ricardo 
Cardoso pelo (0132) 31-6855, 
deixando recado e telefone. 

e Vendo o livro: Fundamentos 
do CMS — Convernational Moni- 
tor Systems. Preço a combinar. 
José Faria, tel: (021) 260-9034 
(após as 21:00h). 







Como no nº 27 as três últimas correções da Mensagem de Erro foram trocadas, publicamos a seguir, para evitar qualquer 





830 LET B = 
SK * SY7) 7 AN ZM 


POKE 16389,120 





e A Coordenadoria de Divulga- 
ção Científica e Cultural — CDCC, 
do Instituto de Física e Química 
de São Carlos, Universidade de 
São Paulo, comunica a formação 
do seu Clube de Computação, que 
atua principalmente na área edu- 
'cacional e científica e deseja en- 
trar em contato com outros clu- 
bes. O endereço para contatos é 
Cx. Postal 369, CEP 13560, São 
Carlos, São Paulo, telex 165122 — 
FOSC. 


e Compro um manual de instru- 
ções para o programa PROFILE 
HI (c. 1982 by Small Computer 
Company). Lúcio A. Castagno, 
Rua Gal. Osório, 1585, tel: 23- 
0555 — CEP 96100, Pelotas — RS. 


e Gostaria de obter maiores es- 
clarecimentos sobre o compilador 
FORTH para Z80, ou com o au- 
tor deste artigo publicado em MS 
22 e 23, ou com leitores interes- 
sados na matéria. Marcelo Miran- 
da, SON, 406 B, apto. 205, Bra- 
sília, DF, 70000. 


e Primeiro Clube Nacional do 
VX ESPECTRO: troca de progra- 
mas, troca de informações, trans- 
codificações para sistema brasilei- 
ro. André Luiz Behrensdorf Der- 
rik, Rua Senador Vergueiro, 198/ 
101, tel: 551-1828, Flamengo, 
CEP 22230, Rio de Janeiro. 


e Gostaria de trocar idéias com 
possuidores da HP-86/87 para in- 
tercâmbio de informações. Tel.: 
247-9391, Joel, RJ. 







(N * SXY - 


— (SX) * 2) 






NEWLINE NEW NEWLINE 


5016 LET 0Q3-Q1 5016 LET Q3=Q1 
6500 GOSUB TR 8500 GOSUB TR 






Se você tem rotinas e utilitários real- 
mente úteis poeira em seus ou fitas casse- 


te, pes go piratas e trate de divulgá-los. Envie-os 

ra a RED. ÃO DA MICRO SISTEMAS — SEÇÃO DICAS: 

ro beim Silva, n9 25, Botafogo, RIO DE JANEIRO-RJ, 
Não se esqueça de dizer equipamento foram de- 

ro os e dpi corvo por pe 

muitos e muitos, em vez de desmagnetizar-se com o tempo 


em suas fitas e disquetes... 







SLLERILIMETO 


Névoa no vídeo 








Jogue uma névoa no seu vídeo, e atrapalhe a lei- 
tura de seus programas pelos “espiões”, com este pro- 
grama em Assembler: 


16514 3E 65 ED 47 C9 


Para utilizá-lo, digite RAND USR 16514, mas an- 
tes é preciso dar um POKE na posição 16515, sendo 
que com POKE 16515,101 você cria a névoa, e com 
POKE 16515,30 a névoa é desfeita. 












Paulo Henrique J. Abranches-MG 














APOIO A AUTORES INDEPENDENTES 


SEL LERILIAETT 
Moldura na tela 


Desenhe uma moldura na tela dos seus programas 
com esta rotina em linguagem de máquina: 






16514 
16522 


3E xx 2A OC 40 06 20 23 

77 10 PC 06 14 23 23 77 

16530 11 1F 00 19 77 10 F6 23 

16538 06 20 23 77 10 FC €C9 

O endereço 16515 (XX) contém o código do caráter 
qn formará a moldura. E para emoldurar o vídeo, use 
AND USR 16514, mas lembre-se de não escrever nada 
nas posições da moldura. 







Paulo Henrique J. Abranches-MG 












DELEITE TO 


Um INPUT diferente 


Use no seu programa um INPUT que já vem com o 
cursor 


para entrar com dados no modo Graphics: 

100 POKE 16390,116 

110 INPUT AS 
Simples, não? É 

do sistema chamada 

ra o cursor Graphics. 


ue o endereço 16390 é a variável 
ODO e o valor 116 é o código pa- 


Paulo Henrique J. Abranches-MG 


Linha TRS-80 


Conversão binário-decimal direta 
















Converter um número binário de oito bits para um 
número decimal é uma rotina bem simples. Mas, e se 
quisermos ler o resultado direto do teclado? Com esta 
dica, isto também será muito fácil. Vamos supor o nú- 
mero (1001): se o ajustarmos em oito bits, teremos: 


HAS l 
CGTIIAIIFTZTAAA 
Até aí, nada de novo. Entre então com esta rotina: 


I0 PRINT O 532, PEEK (14480); ” ” : GOTO 10 









valor —» O 
número do bit —» 7 






e logo depois digite estes dois comandos: CLS: RUN. 
Agora é só apertar os números dos bits setados (no nos- 
so exemplo, 3 e 0), que você verá no meio da tela o 
resultado convertido. 








Helvécio C. Ribeiro Netto-RJ 











HOT LINE 








PROGRAMA dB/I SUPORTE 
PROGRAMA dB/II 
dB/MICRO JORNAL DO USUÁRIO dB/Clube TOTAL 
V. ALFONSO BOVERO 218 TREINAMENTO B ICO dB/Treino B 
ÃO PAULO S E TREINAMENTO AVANÇADO dB/Treino A AOS 
BRASIL TREINAMENTO EM DISCO dB/Treino D : 
TEL.: (011) 263.071 SEMINÁRIOS PARA EXECUTIVOS dB/semináros IISITÁR IOS 


dB/Aplicativos 


E cao À 
ds DU aap 





LEME IT 


Aumente a memória 













ELE RILIMETSS 
SCROLL e CLS parciais 


Se você quer conservar as NT linhas do topo do vídeo in- 
tactas e realizar, respectivamente, SCROLL ou CLS nas res- 
tantes, basta determinar o valor de NT, entrar no pequeno 
trecho em BASIC (que apresentamos a seguir) para ajustes 
nas constantes da parte em Assembler, e utilizar em seu pro- 
grama principal, conforme descrevemos: 


e BASIC: 


1 REM 123 ... (30 caracteres) ... 


Se você quiser aumentar a memória disponível do 
seu Color, uma boa solução é eliminar alguns recursos 
que você não irá utilizar. Assim, para eliminar as pági- 
nas gráficas, digite: 


POKE 26,1: NEW 


Para poder ocupar a área reservada aos strings, e 
ganhar com isso mais memória, use o comando 
CLEAR 0. E se você utilizar disco no seu equipamen- 
to, pode preencher também a área de buffer elimi- 


nando-a com: 
FILES 0,0. 










Marcel Tarrisse-RJ 


Linha TRS Color 


Bloqueando a listagem 





































999 LET NT= (valor entre 0 e 20; opção: 
999 INPUT NT) 

1000 LET E=16518 

1010 LET K1=33*NT 

1020 GOSUB 1100 

1030 LET E=16528 

1040 LET K1=726-K1 

1050 GOSUB 1100 

1060 POKE 16535,24-NT 

1070 ... 


Para evitar que os “piratas” tenham acesso à lista- 
gem do seu programa, bloqueie a listagem digitando: 


POKE 383,158 


E depois que os “olheiros” forem embora, para 
voltar ao normal basta teclar: 


POKE 393,0 


1100 POKE E,256*(K1/256-INT (K1/256)) 
1110 POKE E+1, INT (K1/256) 
1120 RETURN 


e Assembler (entre usando o Monitor Assembler de MS 
n9 23, página 10): 

16514 2A OC 40 11 00 00 19 ES 11 21 

16524 00 19 Dl 01 D6 02 ED BO C9 00 

16534 06 18 CD 2C OA C9 00 00 00 00 


Marcel Tarrisse-RJ 


Linha TRS-80 


Inicializar sem data 
Um meio rápido, fácil e eficiente de evitar forne- 


E para chamar estas sub-rotinas, digite: 
SCROLL: RAND USR 16514 
CLS: RAND USR 16534 
Observação: as sub-rotinas, do modo como se encontram 
acima, funcionam como SCROLL e CLS normais (condi- 
ção equivalente a NT= 0). 


cer data e hora nas inicializações do Sistema Operacio- 
nal é, assim que a data for pedida, apertar novamente a 
tecla RESET do micro. Assim, o Sistema Operacional 
será inicializado sem problema. 


Clodoveu A. Davis Jr.-MG 


Linha TRS-80 


Diga Para alterar a mensagem do DOS5S00 Ativo, no sistema operacional do seu CP-500, para Diga 
Mestre Mestre, experimente esta sequência de PATCHS: 


PATCH *1 (ADD=509C,FIND=444F53,CHG=446967) ENTER 
PATCH *1 (ADD=509F,FIND=353030,CHG=61204D) ENTER 
PATCH *1 (ADD=50A2,FIND=204174,CHG=657374) ENTER 


PATCH *1 (ADD=50A5,FIND=69766F,CHG=726520) ENTER 


Não se esqueça, entretanto, de experimentar esta sequência em uma cópia do DOS. E se você 
quiser colocar qualquer mensagem no lugar do DOS500 Ativo, desde que não ultrapasse 12 ca- 
racteres, use nos CHG a representação hexadecimal dos caracteres desejados, de acordo com a 
tabela das páginas 159/161 do Manual. 


Luiz Gonzaga de Alvarenga-GO 








Carlos Lacerda Lopes-MG 





Por partes, você poderá obter os valores necessários para a construção 
de lajes, através deste programa para os micros da linha TR$S-80 modelo Il 








Cálculo dos esforços 


e armadura de lajes 


Osvaldo Scorcio Pereira 





programa que ora apresenta- da atualidade), calculando ainda a ar- pelo usuário assim que, no vídeo, apa- 
mos efetua o cálculo dos es- madura de lajes no estado último. reça a seguinte mensagem: *** MO- 
forços em lajes, momentos e Foi desenvolvido em BASIC para os MENTO (M), CORRECAO (C), CAR- 
distribuição de cargas para micros compatíveis com o TRS-80 mo- GA (G) OU ARMADURA (A) *** 
as vigas adjacentes pelo Método da delo III e é composto de quatro sub- Para selecionar o programa deseja- 
Ruptura (o método mais econômico programas que devem ser escolhidos do, basta pressionar a tecla indicada 


CASO 2A: CASO 26: CASO 4 A: 
jz=6 j2 =.85 jz=6 


E 


ou 


CASO SA: 
j2=.65 
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entre ênteses. O primeiro (MO- 

(M))calcula os momentos pc- 
sitivos e negativos da laje; pressionan- 
do (M), o programa pedirá, na seguin- 
te ordem: 


e Q =? — carga distribuída em qui- 
lograma-força por metro quadrado 


e Lx=? - 
tros 


menor vão da laje em me- 


e Ly =? —- o outro vão em metros 


coeficientes 

que determinam 
o grau de 
engastamento 

e posição dos 
engastes (ver 
figura 1) 





Feito isso, você obterá os valores 
dos momentos negativos X1, X2, Y1 
e Y2, assim como dos momentos posi- 
tivos Mx e My, todos em metro qui- 
lograma-força por metro. 


Ao término do equilíbrio dos mo- 
mentos negativos, inicie o programa no- 
vamente e selecione o de CORRECAO 
(C), o qual corrige os momentos positi- 
vos Mx e My em função dos seus novos 
momentos negativos. Pressionando (C), 
o programa pedirá, na seguinte ordem: 


e Q=? — carga distribuída em quilogra- 
re por metro quadrado 


e Lx —? — o outro vão em metros 


os respectivos 

valores dos seus 
novos momentos 
negativos, em metro 
quilograma-força 

por metro, segundo 
o desenho da figura 2 








Figura 2 
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A seguir, você terá os novos valores 
dos momentos positivos Mx e My, em 
metro quilograma-força por metro. 

Inicializando o programa mais um 
vez, selecione o terceiro (CARGA(G)), 
que calcula as cargas que serão trans- 
mitidas para as vigas adjacentes às la- 
jes. Pressionando (G), o programa pe- 
dirá, na seguinte ordem: 


e Q =? — carga distribuída em qui- 
lograma-força por metro quadrado 


e Lx=? — nesse caso, o vão mais en- 
gastado ou o menor vão, de acordo 
com os casos de MARCUS, em metros 


e Ly =? — o vão na outra direção em 
metros 


e Caso:? — o número do caso segun- 
do MARCUS: 1,2,3,4,5 0u 6 

O computador fomecerá o valor da 
carga distribuída sobre as vigas RXI, 
RX2, RY1 e RY2 em quilograma-for- 
ça por metro. Atenção: em casos de 


vãos apoio-engaste, ou seja, apoio de 
um lado e engaste de outro, RXI e 
RY1 serão sempre a carga do lado do 
apoio (ver esquema de distribuição na 
figura 3). 

Finalizando, o quarto e último sub- 
programa (ARMADURA (A))calcula a 
armadura necessária para combater o 
momento existente na laje. Pressionan- 


do (A), o programa indicará: 
ACO B 
FCK = 150 FYK = 5000 


DESEJA MUDAR AS CONDICOES 
INICIAIS: (S) OU (N) 


Isto significa o seguinte: existem 
condições preestabelecidas, condições 
estas que são: FCK = 150 quilogramas- 
força por centímetro quadrado é aço 
CA-SOB. Se as condições de sua laje 
forem as mesmas, pressione (N) e 
prossiga; caso contrário, pressione (S) 


Laje/BAS 


É REMPLAJE/BAS” 
2 (LS 
3 CLEAR 


9 PRINTOO, "ue MOMENTO (M),CORRECAO (C),CARGA (G) ou ARMADURA (A) uu” 


40 LETWS=INKEYS 

41 TFW$=""THENGOTOLO 

43 1FWS="A"THENGOTO4320 

14 CLS 

25 LETV=.15 

30 PRINTO2S6, “ 

35 INPUTQ 

38 PRINTO640, nm 
” : 9800 É ” 

40 PRINTA276,” 

45 INPUTX 

50 PRINTA296,” 

55 INPUTY 

45 TFW$="6THENGOTO300 


70 PRINTO3B4,” "a aRA 


75 INPUTA 
80 PRINTO4S6,” 

85 INPUTE 

90 PRINTOSIZ,” 

95 INPUTC 

100 PRINTOS44, ” 
405 INPUTD 

15 LETK=(X/9)52 
420 LETE=X-VaX 

125 LETF=Y-VaX 

430 LETN=28(F+K4E) 
135 LETHO=04X52/(128N/(28Y-K)) 
440 TFWS="C"THENGOTOSL65 

145 LETA=ANMO 


",0256,"0="; 


“.0076,"Lu="s 


"9296, "Ly=" 


"2415, 


itiNt=" 
"ia/xo=”, 
"9512," jL/Yt="; 


"0544," ja/v2=", 
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CÁLCULO DOS ESFORÇOS E ARMADURA DE LAJES 








Figura 3 


e entre com os respectivos dados da 
sua laje. Logo em seguida, o progra- 
ma pedirá: 


e d=? — altura útil da laje em me- 
tros 


e M=? — momento em metro quilo- 
grama-força por metro 


Aparecerá na tela o valor de AS, a 
área da seção de ferro em centímetros 
e, ao lado, o seguinte: 


* 5S0-C. +H40-C.. 
* 63-C.. F450-C.. 


EE = 46D=€.. 
Rat 0 40... 


À esquerda, as bitolas com os res- 
pectivos espaçamentos necessários para 
atender o seu AS, para os aços CA-24, 
CA-25, CA-32, CA-40 ou CA-50. À di- 
eita, o mesmo para os aços CA-60. 
Esclarecendo: se seu aço for CA-24, 
CA-25, CA-32, CA-40 ou CA-S0, será 
impressa no vídeo a tabela da esquer- 
da; se for o CA60, será impressa a ta- 
bela da direita. Caso a altura imposta 
não suporte o momento, será impressa 
a mensagem: * * * ALTURA INSUFI 
CIENTE *** E não esqueça: após ca- 
da entrada de dados pressione ER. 


Nota: Este programa foi elaborado 
a partir das teorias dos professores 
Aderson Moreira da Rocha e Adolpho 
Polillo. 


Osvaldo Scorcio Pereira é engenheiro civil 


autônomo, trabalha com cálculo estrutural 
há quatro anos e atualmente presta serviços 
para a Forma Engenharia Ltda., no Rio de 
Janeiro. 
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150 LETE=BAMO 

155 LETC=CaKaHO 

160 LETD=DxKaMO 

65 LETHK=HO-(( (AMB MY +(C4D)8X)/N) 

175 IFWS="C”THENGOTOLES 

180 PRINTOGMO, "Xi="; INT(AS.5),"X2="; INT(BA.5), “Yi="; INT(CA 5), Os”; 
ANT(DA.S) 

185 PRINTO768, “Mx=”; INTCMK+.5); 9800, "Hz"; INTCKANKS,5) 

190 GOTO25 

200 LETKY=1/(24L) 

205 LETKX=1-KY 

210 GOSUB4240 

215 60T04280 

300 PRINTQ384, “CASOS”; 

305 INPUTN 

320 LETL=//X 

325 ONNGOTO200, 400, 600, 800, 1000, 1200 

400 IFL(=.BTHENGOTO425 

405 LETKY=1/(2.54L) 

MO LETKX=1-KY 

445 GOSUBS240 

420 60T04260 

425 LETKX=. 4254 

430 LETKY=1-KX 

425 GOTO4IS 

600 LETKY=1/(24L) 

405 LETKX=Í-KY 

640 GOSUBL240 

615 GOTOL300 

800 IFL(=.667THENGOTOB2O 

805 LETKY=1/(24L) 

B40 6070205 

820 LETKX=,754L 

825 LETKY=1-KX 

830 G0T0210 

4000 IFL(=.B33THENGOTOS025 

1005 LETKY=4/(2,48L) 

1040 LETKX=-KY 

1045 GOSUBÍ240 

1020 60704300 

1025 LETKX=, és 

1030 LETKY=1-KX 

1040 GOTOLO1S 

1200 G0TO200' 

1240 PRINTA64O, “RXL="; INT(KXAQUX/24.5), "RX2="; INTCKXAGRK/2+,5), 

1250 RETURN 

1260 PRINTOGMO, "RXS="; INTCKXAQUXA, 44.5), PRXDE”; INTOKKAQAKE 645), 

1270 RETURN 

1280 PRINTRYL="; INT(KYAQRV/24.5), "RVO=”; INTCKYAQRY/24,5) 

1290 60T025 

1300 PRINTRYS=";INTIKYAQE (E. 44.5),PRYD="; INTOKYAQUIA, 64,5) 

1340 GOTO2S 

1320 CLS 

4325 LETAS="B" 

1330 LETFCK=150 
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4340 LETFYK=5000 

1345 PRINTGO, “ "264," "99%, 

1350 PRINTOO, “ACO B”;944, “FCK=150";996,"FYK=5000";9128, "DESEJA MUDAR AS 
CONDICOES INICIAIS: (5) ou (N)” 

1360 LETBS=INKEYS 

1370 1FB$=""THENGOTO1360 

1378 PRINTO44E, 

1300 PRENTÍ28, ” 

1390 1FB$="NºTHENGOTOSABO 

4400 PRINTOO,” “sa,” 

[440 PRINTGO, “ACO A ou ACO B:”; 

1420 INPUTAS 

1430 PRINT364, “FCK="; 

1440 INPUTFCK 

1450 PRINTO96, "FYK="; 

1460 INPUTFYK 

1480 LETFCD=FCK410000/1. 4 

1490 LETFYD=FYK/4.45 

1500 PRINTAZS6,” "2256, "d ="; 

1540 INPUTD 

[530 PRINTO384,” "2384, “Me”; 

1550 INPUTM 

1570 PRINT3404,” "22," "9552," 
"0680," “9808,” “ 

E580 LETMD=Ha4 4 

1590 LETMI=HD/(D528FCD) 


1600 LETEYD=FYD/2100+2 


1610 1FAS="A”THENLETEYD=FYD/2100 

1620 LETHL=(2.38/(3.5+EYD)) wc 1-1 .4/(3.5+EYD)) 

1630 IFMI)MLTHENGOTO1730 

1640 LETZ=1-.2%(2,5-SOR(6.25-14.706%M1)) 

1650 LETAS=HD/(ZxDxFYD) 

1660 PRINTO404,“AS=";(INT(ASX100+.5))/100 

1665 IFFYD)SOOOTHENGOT01700 

1670 LETKO=(INT((18/05)*10+.5))/40 

1675 LETWO=CINT((32/A5)410+.5))/10 

1680 LETYO=(INT((71/A5)410+.5))/40 

1685 LETZO=(INT((127/05)410+.5))/10 

1690 PRINTO424,“45,0-C.”;K0;0552,"H6,3-C.”;NO; 0680, “HLO 
-C."sY0,9808,"H12 -C.”;Z0 

1695 60701530 

1700 LETKO=(INT((12.6/A5)410+.5))/10 

1705 LETMO=(INT((48/A5)410+.5))/40 

1740 LETYO=CINT((32/A5)410+.5))/40 

1715 LETZO=(INT((71/05)410+.5))/10 

1720 PRINTO424,“H4,0-C.”;K0;9552,"85,0-C.”;WO;0680, 
"46,3-C.”; YO; 9808, “HLO -C.”;70 

1725 60704530 

1730 PRINTO448,"4%* ALTURA INSUFICIENTE uu” 

1740 RUNÍ32S 

1750 REM” PROGRAMA ELABORADO POR: 

1760 REM” OSVALDO SCORCIO PEREIRA 

1770 REM” Engenheiro Civil - CREA: 31.593-D 

1780 REM” DIREITOS AUTORAIS RESERVADOS 

1790 END 
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Este programa permite utilizar o Processo de Marcus na HP-41C para 
o cálculo de valores ligados à área de Engenharia Civil 








Lajes armadas em cruz 


ste programa visa ao cálculo de 
lajes armadas em cruz pelo Pro- 
cesso de Marcus nas calculadoras 
HP-41C, fornecendo os momen- 
tos máximos positivos nas duas direções 
(Mx e My), os momentos negativos má- 


Celso de Arruda Albuquerque 





ximos nas duas direções (Ny e Nx) e as Figura! 
reações de apoio em cada bordo (Rx,, 

Rx2, Ry; e Ry2). A configuração míni- e Nx-teclaC 
ma exigida é de um módulo de memó- e Ny-—tecla D 


ria e SIZE 2 19. 

O programa exibe as unidades a se- 
rem utilizadas (kgf e m) e exige o co- 
nhecimento mínimo da Convenção de 
Marcus, ou seja: Lx = direção cortada 
pelo maior número de engastes ou me- 
nor vão (quando o número de engastes 
for o mesmo nas duas direções). Os ca- 
sos de engastamento vão de 1 a 6. 

A entrada de dados não oferece difi- 
culdade, pois o programa pede somente 
quatro (Ly, Lx, P e CASO), os quais se- 
rão introduzidos quando solicitados. A 
cada dado introduzido, deve ser pressio- 
nada a tecla R/S. Quando a máquina 
emitir o sinal sonoro, estará pronta para 
apresentar os resultados nas seguintes 
sub-rotinas diretas: 

e Mx-— tecla A 
e My-—tecla B 


BIoLBL “MARCUS: 


92 cusitakçoao | 14 CLR=7" 


26 PROMPT 


e Rx, e Rx; — tecla F 
e Ry, e Ry; —teclaG 
Quando pressionadas as teclas F ouG, 
aparecerá no visor Rx; (F) ou Ry, (G). 
Para obter Rx, ou Rys, basta teclar R/S. 
Querendo a edição dos dados intro- 
duzidos, aperte a tecla E. Se verificar 
ue houve erro na introdução, utilize a 
tecla amarela (SHIFT) e a tecla A que o 
programa pedirá uma nova introdução 
de dados. 


Na figura 1, temos os seis possíveis. 


casos de engastamento e, na figura 2, 
dois exemplos de cálculo, a partir dos 
casos 1 e 2. Observe que, no exemplo 2, 
Lx = 6,0m porque é cortado por um en- 
gaste, enquanto que Ly = 4,0m não é 
cortado. 

Um último detalhe: antes de iniciar a 


execução do programa, assegure-se de 


My = 256,3 Kgf "Ju 
Ry, -” Ry, = 247,4 Kgf/u 


Mx = 576,8 Kgf "Ju 
Rx, = Rx, = 835 Kgf/m 
Exemplo 2: 


Aperte a tecla amarela (Shift) .e a tecla A para 
recomeçar o programa. 


pla 6,0, 
[r=500 E] vs = 4,0 


P = 500 Kgf/w? 
Ly = 4,0 
Lx = 6,0 w 


Caso 2 


My = 503,4 Kgf "Ju 


Mx = 272,5 Kgf aim 
Rx, = 595,0 Egf/m 


Ex = 743,8 Kgf "/u 
Rx, = 396,7 KEgf/m 


Ry, - Ry, = 669,4 Egf/w 
Figura 2 


não haver assignado qualquer função ou 
programa nas sub-rotinas utilizadas, pois 
o assignamento do usuário tem priori- 
dade sobre o programa em execução. 








Ceiso de Arruda Albuquerque é formado em 
Engenharia Civil pela Universidade Gama Fi- 
lho e trabalha na BRASCEP Engenharia Ltda. 
desde março de 1981 na área de projeto e cál- 
culo. Possui uma HP41CV, a qual utiliza so- 
mente para o cálculo de problemas relaciona- 
dos à sua profissão. 
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thG STO &6 
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182 12 
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188 1 
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UR 
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113 XEQ 68 
114 XEQ 09 
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119 Kt2. 
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123 RCL 82 
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127 STO 16 
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121 CHS 
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134 RCL 17 
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141 STOP 


1426LBL A 
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149 STOP 
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204 ,6 

285 STO 45 
206 4 
2B7eLBL 16 
288 PCL 16 
209 + 

218 Ral=" 
eli ARCL X 
212 AVIEN 
213 STOP 
214 REL 16 
215 RCL 85 
Slé + 

217 "RAZ=" 
218 ARCL X 
219 AVIEN 
228 STOP 
2210LBL G 
222 FS? 83 
223 GTO 17 
224 45 

2253 STO 85 
226 GTO 18 


2270LBL 17 
208 sb 

229 STO 85 
PIA ,4 
2310LBL 18 
232 RCL 18 
233 + 

234 “RYyI=" 
235 ARCL X 
236 AYIEN 
237 STOP 
238 RCL 18 
239 RCL 05 
248 + 

241 "RYP=" 
242 ARCL x 
242 AVIEk 
244 STOP 
245*LBiL 08 
246 REL Mé 
247 RCL R2 
248 2R 

249 + 

25 3 

251 4 

so RCL Q6 
293 4 


254 RCL 61 
255 / 

256 CHS 
05? 1 

258 + 

259 RCL R2 
268 + 
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e79 1 

288 + 


281 PCL B2 
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286 ROL 81 
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Curso de 


Assembler - XI 





D ando sequência à última lição, vamos discutir as ou- 
tras alternativas que o microprocessador Z80 nos oferece para 
desviarmos o fluxo de um programa. Espero que as instruções 
de JUMP descritas na lição anterior tenham sido compreendi- 
das perfeitamente, pois este capítulo é essencial para a elabo- 
ração de qualquer programa em Assembler. Vamos então co- 
nhecer as instruções reservadas para esta lição. 

3 — Desvio Relativo Incondicional 

Formato: JR e 

Operação: Efetua um desvio do fluxo de processamento para a 
posição de memória dada pelo conteúdo do Program Counter 
(PC) acrescido do operando e explícito na instrução, na forma 
de compolemento de 2. 


PC4— PC+e 
deslocamento 


Program Counter 
Código Objeto: 
JR e 


00011000 


Exemplo: 


00011000] 218 
00000101/——205 





Descrição: Esta instrução executa um desvio incondicional, 


para outro segmento do programa. O valor do deslocamento e 
é somado ao Program Counter (PC) e a próxima instrução 
executada pelo microprocessador se encontra na nova posição 
de memória apontada pelo PC. Esta instrução de desvio pode 
ser feita em um intervalo de —126 a +129 bytes. O micropro- 
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cessador ajusta automaticamente o conteúdo do PC. A grande 
utilidade desta instrução é para o desenvolvimento de progra- 
mas relocáveis, isto é, programas que podem ser executados 
em qualquer local de memória, visto que os desvios são rela- 
tivos a uma posição base. 

Ciclos de máquina (M): 3 

States (T): 144,3, 5) 

Flags afetadas: Nenhuma 


Exemplo: 
00100 F TESTE DA INSTRUCAO DE DESVIO RELATIVO 
1000 00110 ORG 1000H 
1000 1803 00120 DESVI JR DESV2 
1002 3E04 00130 LD A, 04 
1004 AF 00140 XOR a 
1005 18F9 OO1S0 DESVZ JR DESVI 
0000 00160 END 


00000 TOTAL ERRORS 
34940 


TEXT AREA BYTES LEFT 

Como podemos observar no exemplo acima, quando dese- 
jamos realizar um desvio positivo, indicamos o número de by- 
tes que queremos saltar, sem contar os bytes da instrução JR. 
Para o desvio negativo, indicamos o número de bytes que dese- 
jamos saltar na forma de complemento de 2, considerando a 
instrução JR e os bytes da instrução que desejamos executar 
após o desvio. 
Bytes a saltar. 07H — 0000 0111 
Complemento de 1: FSH > 1111 1000 
Complemento de 2. F9H > 1111 1001 
4 — Desvio Relativo Condicional 
Formato: JR cc, e 
Operação: Efetua um desvio do fluxo de processamento para a 
posição de memória dada pelo PC, acrescido do operando e 
expresso na forma de complemento de 2, somente se a condi- 
ção cc for verdadeira. Caso contrário, ignora a instrução e con- 
tinua no fluxo normal do programa. 
Código Objeto: 


EK OB O 


00cccc cc 000 
ds * 
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onde cc identifica a condição da flag a ser tratada. Se a 
condição for verdadeira, ou seja, se a flag estiver na condi- 
ção desejada, o desvio é realizado. 


100 para cc = flag NZ (Z=0) 


101 para cc = flag Z (2=1) 
110 para cc = flag NC (C=0) 
11 para cc = flag € (C=1) 


Como podemos observar, a instrução JR só nos permite tes- 
tar as condições das flags Zero e Carry. 
Exemplo: 





Descrição: Esta instrução executa um desvio condicional para 
outro segmento do programa, isto é, o desvio só é realizado se 
a condição flag testada for verdadeira. O valor do deslocamen- 
to e é somado ao PC, e a próxima instrução executada pelo 
microprocessador se encontra na posição de memória apontada 
pelo PC. O número de bytes que podem ser somados ao PC en- 
contra-se no intervalo de —126 a + 129 bytes. O microproces- 
sador ajusta automaticamente o conteúdo do PC durante a 
execução da instrução JR. Se a flag testada não estiver na con- 
dição desejada, a instrução é ignorada pelo microprocessador e 
a execução do programa continua normalmente. 


DO [Essa [=em 


12(4,3,5) 










7(4,3) 





Flags afetadas: Nenhuma 


Exemplo: 
00100 4T "JR" ONAL 
1000 ssiee ITESTE Dad STRUÇÃO ER CONDICI 
1000 B7 00120 oR “= fPOSICIONA AS FLAGS 
1001 2850 00130 JR Z,9+52H ITESTA SE Z=1 
1003 3860 00140 JR C,8+62H JTESTA SE C=1 
1005 C30040 00150 JP 4000H FSENAO CONTINUA EXECUCAO 
0000 00140 END 


00000 TOTAL ERRORS 
34891 TEXT AREA BYTES LEFT 


Como podemos observar, quando utilizamos um montador 
Assembler devemos considerar também os bytes utilizados 
pela instrução -9R, pois o montador irá descontar os dois bytes 
da instrução. 

5 — Desvio Indexado por HL 

Formato: JP (HL) 

Operação: Desvia o fluxo do processamento para o endereço 
contido no par de registradores HL. 

Código Objeto: 


JP  (HL) 


[11,10 1/0,0,1)—»e9 


Descrição: O Program Counter (PC) é carregado com o conteú- 
do do par de registradores HL de 16 bits. A próxima instrução 
executada pelo microprocessador se encontra no endereço 

» 


es 
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distribuidor autorizado 


MiEiMOlRIEK 
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Fones: (061) 225-6988/223-678 
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contido em HL, que, após a instrução JP (HL), também estará 
contido no PC. 


PC+ (HL) 
Eq . 
Ciclos de máquina (M): 1 
States (T): 4 
Flags afetadas: Nenhuma 
Exemplo: 
00100 ITESTE DA INSTRUCAO JP «ML) 
s200 ooo o0RG 5200M 
s200 87 ooo ADD A,ã 18 = As 2 
S201 210D52 00130 LD Hi, TABLE HM = ENDERECO DA TABELA 
5204 1600 00140 LD D,O m$€D = o 
s206 SF 00150 LD E,a E = AsZ 
s207 19 00160 aDD HL, DE Hi. = ENDERECO NA TABELA 
s208 SE 00170 LD E, (ML) E = LSB DO ENDERECO 
s209 253 00180 INC He. ML = PROXIMO BYTE 
S20A Sé 00190 LD D, (HL> 1D = MSB DO ENDERECO 
S20B EB 002090 Ex DE, Mi. = ENDERECO DO DESVIO 
s20C E9 ooz10 JP a) sDESVIA PARA O ENDERECO 
S20D 000€ 00220 TABLE DEFWw 0000H 1 ENTRADA = TABLE + À * 7 (AO) 
S20F 3300 00230 DEFW 0033H + ENTRADA = TABLE + A we 2 (Ami) 
5211 4900 00240 DEFWw 0049H | ENTRADA = TABLE + A + 2 (A=2) 
52153 A728 00250 DEFW 28A7H 1 ENTRADA = TABLE + À * 7 (AmT) 


0000 
00000 TOTAL ERRORS 
34504 TEXT AREA BYTES LEFT 


Neste exemplo, podemos observar como utilizar a instrução 
JP (HL) para efetuar desvios contidos em uma tabela de 
JUMPS. Para utilizar esta rotina, colocamos no acumulador a 
opção desejada no intervalo entre O e 3. A rotina calcula o 
endereço, multiplicando o conteúdo de A por 2 que, somado 
ao conteúdo de HL (que contém o ponto de entrada da tabe- 
la), determina o ponto de entrada na tabela que contém o 
endereço para o JUMP. Se A= 2, vamos obter o seguinte resul- 
tado: HL = 520D H + 4 = 5211H. 

Este endereço na tabela contém o endereço desejado para o 
JUMP no caso da opção A = 2. 

6 — Desvio Indexado por IX/IY 
Formato JP (IX) 
JP 


(1Y) 
Operação: Desvia o fluxo do «e pa o endereço 
contido nos registradores indexadores IX ou IY. 


Código Objeto: 
JP (IR) 


NEMO 
rr eogitios 


onde IR identifica os registradores indexadores IX, IY, monta- 
dos a partir da seguinte tabela: 

O para registrador IX* 1 para registrador IY 

Exemplo: 


JP (IX) 


11,011101]-pDo 
11,1,0,/1,0,01)-pE9 


Descrição: O Program Counter (PC) é carregado com o conteú- 
do dos pares de registradores IX ou IY. A próxima instrução 
executada pelo microprocessador encontra-se no endereço de 
memória contido no par de registradores indexados IX ou IY. 
PC + (IX) 
PC + (IY) 


Ciclos de máquina (M): 2 

States (T): 8(4,4) 

Flags afetadas: Nenhuma 

Exemplo: Se o conteúdo do PC é 1000H e o conteúdo do par 
de registradores IX é 4800 H, após a execução da instrução 
JP (IX), o conteúdo do PC será 4800 H. 


7 — Decrementa e salta se diferente de zero 
Formato: DJNZ e 

ção: Decrementa o conteúdo do registrador B e, se o seu 
conteúdo for diferente de zero, efetua um desvio relativo. 
Código Objeto: 


DJUNZ e 










00010000 





Exemplo: 
DJNZ $ - 10 H 


00010000)]-—p10 
1,1,1,01,1,1,0)—»EE 


Descrição: Esta instrução é similar a um desvio relativo condi- 
cional, exceto que o conteúdo do registrador B determina o 
desvio. O registrador B é decrementado e, se o seu conteúdo é 
diferente de zero, o operando e, na forima de complemento de 
2, é somado ao Program Counter (PC). O desvio deve estar no 
intervalo de —126 a +129 bytes. O microprocessador atualiza 
automaticamente o PC. Se o conteúdo do registrador B é zero, 
após ser decrementado, a instrução seguinte ao DJNZ será exe- 
cutada. Esta instrução se assemelha ao laço FOR-NEXT da lin- 
era BASIC. As instruções abaixo podem substituir um 
DJNZ. 


DEC B 
JR NZ,e 


[O [Ema resne 09 [ sat 





Flags afetadas: Nenhuma 

Exemplo: A rotina abaixo transfere 128 bytes de um buffer de 
entrada para um buffer de trabalho. Esta rotina transfere os 
128 bytes ou até encontrar um Carriage Retum (Enter). 


00100 TESTE DA INSTRUCAO DINZ 
00110 BUFIN EQU OF 000H 


Fooo 

F100 00120 BUFOUT EDU 0F 100H 

1000 00130 oRGS 1000H 

1000 0680 00140 LD B, BOM ISETA CONTADOR 

1002 2100FO 00150 LD HE, BUF IN mL <- BUFEER DE ORIGEM 

1005 1100F1 00160 LD DE, IDE <- BUFFER DE DESTINO 

1008 7E 00170 LOOP LD A, XML) sA <= (BUFIN) 

1009 12 oo180 LD (DE»,A 5 (BUFOUT) <- A 

1008 FEOD 00190 cr oDH ITESTA SE A = "ENTER" 

100C 2804 00206 JR Z,FIM SE A = OD ENTAO FIM 

100€ 23 00210 INC HL + INCREMENTA (BUF IN) 

100F 13 00220 - INC DE f INCREMENTA (BUFOUT) 

1010 10F6 00230 DJINZ LOOP FREPETE 128 VEZES 

1012 3A0040 00240 FIM LD A, (4000H) FCONTINUA EXECUCAO 
00250 END 


0000 
00000 TOTAL ERRORS 
J4S86 TEXT AREA BYTÊS LEFT 


Neste ponto vocês já conhecem um repertório de instruções 
que permitem efetuar alguns programas em Assembler. Vamos 
então criar os primeiros programas e enviar para a MICRO 


SISTEMAS. Terei prazer em analisá-los. E 


Amaury Correa de Almeida Moraes Junior é formado pelo curso de 
Análise de Sistemas de FASP, tendo feito diversos cursos de aperfeiçoa- 
mento nas áreas de Eletrônica Digital e Microprocessadores, e atualmen- 
te trabalha na área de microcomputadores para Citybank. 
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Escolha O seu programa para hoje. 


Por falta de programas, redes de computadores e horóscopo e e cálculos de engenharia estrutural e 
dificilmente um Unitron ap Il vai ficar cartas astrológicas e controlar sistema de administrar consultórios e operar bolsa 
parado. E para você ter uma idéia do alarme e controlar tempos e métodos e de valores e analisar diagnósticos médi- 
que ele pode fazer em sua casa, programação ““basic”” e esquematizar cos e arquivo de agência de turismo e 
empresa ou escritório, vamos lá: marketing direto e atualizar arquivos controlar transportadoras e gerenciar 
e redigir textos e relatórios administra- | escolares (colégios, faculdades) e investimentos e inventários e sistemas 
tivos e gráficos coloridos e atualizar administrar escolas e aprender com de amortização e arquivo de receitas 
agendas e contas a pagar/receber e computador (como usar o computador culinárias e cálculo do IPI, ICM e 
contabilidade e folhas de pagamentos em seu benefício) e treinamento outros e administração doméstica e 
cadastrar clientes e fornecedores e intensivo (vendedores, compradores) fazer duas coisas ao mesmo tempo. 


“budgets”” e administrar varejo e mala simular situações e jogos educacionais 


| oa Estas são algumas das aplicações que o 
direta e analisar investimentos e xadrez, administrar bens e propriedades e 


Umitron ap Il pode ter para você. Mas, 


e outros jogos inteligentes e correio controlar linhas de produção e catalogar» ocê quiser inventar mais alguma, 
eletrônico e banco de dados e analisar bibliotecas e imposto de renda (como pode ter certeza que ele topa. 
pesquisas e estatística e marketing de preparar a declaração) e sistematizar 

negócios e teste de hipóteses e acessar construções e obras e estatísticas 
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Envie suas perguntas para MICRO 
SISTEMAS (Seção MS 
RESPONDE); Rua Visconde 
Silva, 25, Botafogo, Rio de 
Janeiro-RJ, CEP 22281. 





Pergunta — Tenho um TK85 com 48K de 
RAM. Tudo corria bem, até que resol- 
vi escrever um programa um pouco 
maior. Durante a digitação, fiz o se- 
guinte teste: 

(CLEAR NEW LINE) 

PRINT PEEK 16404+256 *PEEK 164 
05-16509 (NEW LINE) 

Assim, poderia evitar que a memória se 
“esgotasse”. Em determinado momen- 
to, o teste indicou 16200 bytes ocupa- 
dos e, presumo, seriam estes somente 
os bytes gastos pelo programa e pelo 
display, já que, antes do teste, acio- 
nei CLEAR. 

Fui inserindo mais algumas linhas 
no programa até que o computador 
“saiu do ar”: algumas faixas começa- 
ram a rodar pela tela da TV, e somente 
após desligá-lo é que tudo voltou ao 
normal. 

Se eu não der CLEAR antes do tes- 
te, de acordo com a dimensão que eu 
estabelecer, o resultado do teste pode 
chegar até 48 K. A partir daí, o micro 
começa a se comportar como está des- 
crito no capítulo 23 do manual 
(“quando a memória fica repleta”) e 
não é mais possível inserir linhas, mas 
o programa não é perdido. Basta dar 
um CLEAR, diminuir a dimensão e, 
tudo bem, é só continuar. 

Já escrevi à Microdigital pedindo es- 
clarecimentos e até agora não recebi 
resposta. Por isso, resolvi recorrer a vo- 
cês. Minhas dúvidas são as seguintes: 

1 —- O que está acontecendo com o 
meu TK85 com 48 K? 

2 — Por que não consigo usar mais do 
que 16200 bytes no meu programa em 
BASIC? 

3 — Essa limitação é real ou pode tra- 
tar-se de algum defeito no micro? 

4 — Se essa limitação existe, qual a 
vantagem em se possuir um micro com 
48 K “disponíveis”? (Marcos A. Fer- 
reira da Silva, SP) 


MICRO SISTEMAS Isso não é defeito 
do seu equipamento. O que acontece é 
que a memória do seu micro se organi- 
za como mostra a Figura 1. E, qual- 
quer que seja a expansão, o máximo 
aproveitável em seus programas será 48 
K. A utilização da RAM se inicia no 
endereço 16384 (leia o artigo ““Peque- 
nas memórias, grandes economias”, 


82 





publicado em MS nº 22) e pode che- 
gar, no máximo, ao endereço 65536. 

O arquivo de imagens fica “passean- 
do” pela RAM na medida em que você 
vai escrevendo seus programas, mas 
este nunca poderá estar com uma par- 
te antes do endereço 32768 e outra 
depois. Assim, quando você já tiver 
usado aproximadamente 15 K, você 
deve forçar o arquivo a ultrapassar essa 
barreira, criando uma linha que gaste 
bastante espaço (por exemplo: LET 
A = 141+1+1+1...) e editá-la no modo 
FAST. 


Não se esqueça de que o arquivo 
de imagens deve ultrapassar integral- 
mente o endereço 32768. E é bom gra- 
var o programa antes de tentar isso, 
para evitar surpresas depois. 

o 
8.192 


16.384 ] 


32.768 


65.536 


Figura 1 


Pergunta — Através de um amigo, fi- 
quei sabendo que era possível a utili- 
zação das instruções READ e DATA 
no TK82-C, mas até hoje não consegui- 
mos introduzir estas instruções no mi- 
cro. Gostaria de saber se é possível e 
como introduzir tais instruções. (Luiz 
Wellington de S. Monteiro, PE) 


MICRO SISTEMAS — As instruções 
READ e DATA não são possíveis no 
TK82-C, pelo menos como instruções. 
É possível, no entanto, criar uma roti- 
na que simule estas instruções. Leia a 
matéria intitulada “DATA, READ e 
RESTORE no TK”, publicada em MS 
n9 25, edição de outubro/83. 


Pergunta — Sou possuidor de um mi- 
cro NE-Z80, o “retardado”” da família 
dos pessoais. Gostaria de saber o que é 
possível fazer para contornar, ou pelo 
menos atenuar, as irritantes limitações 
do modelo, quais sejam: a inexistência 
de casas decimais, baixíssimo limite de 
sobrecarga (overflow), não reconheci- 
mento de diversas instruções vitais da 
linguagem BASIC etc. Uma expansão 
resolveria? Pode um programa execu- 


tado no NE-Z80 ser transferido via fi- 
ta magnética para outro micro, como o 
NE-Z8000 ou o TK82-C? (Edgar San- 
tos Rocha, RJ) 


MICRO SISTEMAS — Não, um progra- 
ma gravado pelo NE-Z80 não pode ser 
transferido para o NE-Z8000 ou para o 
TK82-C. 

Quanto ao “retardado”, não se de- 
sespere, pois todo micro é retardado 
em algum aspecto. Se, por um lado, o 
NE-Z80 é limitado em comandos e ins- 
truções, por outro ele é o mais rápido 
de sua categoria, e o que gasta menos 
memória com o armazenamento de 
programas. 

Para contornar a falta de certas ins- 
truções será preciso lançar mão de cer- 
tas sub-rotinas. Por isso, mãos à obra e 
ligue a sua criatividade, que todas as 
limitações do micro podem ser supera- 
das. 


Pergunta — Tenho um NE-Z8000 que 
não possui a função SLOW. Fiz o 
seguinte programa: 
10 POKE 16100,1 
20 PRINT “AMAAAAAAAA” 
30 PAUSE 1000 
40 RUN 

Executando este programa, a tela fi- 
cou cheia. Depois apertei CONT e EN- 
TER e, quando a tela ficou cheia, aper- 
tei ENTER. Após alguns segundos de 
tela cinzenta, apareceram caracteres 
movendo-se em SLOW. Há vários pro- 
gramas em que isto ocorre. Gostaria de 
saber por que isto ocorre, pois algu- 
mas vezes, muito raramente, Os carac- 
teres não se movem. (Osvaldo Luiz 
Ayala Fernandes, SP) 
MICRO SISTEMAS — Se o seu compu- 
tador tiver 1 ou 2 K de RAM, o que 
aconteceu é muito simples: estourou a 
memória. Mas não se assuste, porque 
isto não é grave; basta desligar o mi- 
cro que ele volta a funcionar tranqúila- 
mente. 

Isto acontece porque o POKE pas- 
seia pelo arquivo de imagens e vai aca- 
bar no STACK, o que certamente con- 
funde o micro. É apenas uma das inú- 
meras coisas que podem acontecer em 
caso de memória lotada, mas nenhu- 
ma delas provocará sérios danos ao seu 
equipamento. 
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SYSWORD PENETRATOR 






SCARFMAN 


DANCING DEMON 





Sysdata 


Microcomputador pessoal 






Você só descobre o quanto precisa de um Micro-Com- 
putador JR da Sysdata depois que o conhece de perto. 

Você vai ter certeza de que fez um ótimo negócio ao 
adquirí-lo assim que o colocar na sua empresa ou na sua 
casa. 

O JR da Sysdata é rápido, é versátil, é compacto. 
APLICAÇÕES: 

Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relatório de clientes, mala direta, 
cálculos de orçamentos financeiros,controle de processos 
industriais, cálculos de engenharia, cálculos de estatísti- 
cas, funções matemáticas, funções lógicas em cadeia de 
caracteres (STRINGS), gráficos, jogos animados, progra- 
mas educacionais. 

O JR PERMITE AINDA: 

O acesso a grandes sistemas de computação, a comuni- 
cação entre os departamentos de Empresa, efetuar pro- 
gramas específicos para cada Empresa. 

E, como se não bastasse, ele é o Micro-Computador de 
menor preço do mercado. 

Com todas as qualidades que tem, o JR da Sysdata nem 
precisava ser tão econômico. Mas é. 

Afinal, ele é o mais completo Micro-Computador de sua 


geração. q P 
Inclusive no preço. Sysdata pera ale ope pes er 
Você pode testar estas e outras qualidades do JR em N” 
qualquer dos nossos revendedores. 














REVENDEDORES: SÃO PAULO /Capital - Ad Data 864.8200; ADP System 227.6100: Búcker 881.7995: Cinótica 36 6961; Compumarketing 212.9004; Compute 852.8533: Com 
puteriand 231.3277; Foto Léo 35.7131; Fotótica 853.0448; Guedes 289.9051; Horst 203.5597: Interface 852.5603: Lema 210.5929: Microrei 881.0022 Miprotec 289.4941; Nova Gera 
ção 814.3663; O.P.A. 35.8685; Plandata 275.0181; Plantel 543.9653; Sacco 814.0598; Servimec 222.1511: Sistenac 282.6609: S.0.S. 66.7656: Runner's 469 0887 Campinas 

Computer House 852.5855; Computique 32.6322; Microtok 32.4445; Rio Claro - Coml. Micro Cosmos 34.5801 Ribeirão Preto - Compusys 625.1195 - Araras - Copec 41.3779 
Taubaté - Ensicon 33.2252; Mogi Guaçu - Guaçumaq 261.0236; Bragança Paulista - Infordata 543.5198; Bauru; Marília - Sipro 33.4109: Catanduva - Teledalto 22.8119; RIO 
DE JANEIRO /Capital - Clap 228.0734; Computique 267.1093: G D M Informática 284.8744: JR de Góes 246.4180: Kristian 391 3165 Suprimento 274.8845; Petrópolis - Foto Oti 
ca 42.1391; MINAS GERAIS /Belo Horizonte - Compucity 226.6336: Computec 225.2617: Kemitron 225.0644: Minas Digital 337.7946; Poços de Caldas - Computique 721.5810 
RIO GRANDE DO SUL/Porto Alegre - Advancing 26.1194; Aplitec 24.0465; Digital 24.1411; Microsis 22.9782: Pelotas - Sistematika 22 3810: Novo Hamburgo - Micromega 
93.4721; PARANA /Curitiba - Computique 243.1731; Micro System 232.3533 Morgen 232.0593; Ponta Grossa - Grupo Data Memory 24.6191; Londrina - Shop Computer 
23.9674; GOIAS /Goiânia - Casa do Microcomputador 223.1165; Grupom 2725.8226: SANTA CATARINA; Florianópolis - Castro 22.6933; Infotec 23.4777; BRASÍLIA /Distrito 
Federal - Compushow 273.2128; Digitec 225.4534; MATO GROSSO DO SUL/Campo Grande - DRL 382.6487: Video 3721.4220: CEARÁ Fortaleza - Sisc: mpy 244.4691 
PARAIBA / João Pessoa - Medusa 221.6743; PERNAMBUCO /Recife - Elogica 241. 1388 





Os micros da linha Sinclair estão saindo em campo para 
calcular glebas e terrenos com maior precisão 








Cálculo da área 
de glebas 


Laci Mota Alves 





ção de muitos problemas de topografia, e devido à 
acessibilidade do microcomputador nos dias atuais, é 
que se procurou elaborar esse programa, em BASIC, 
referente ao assunto. Através dele, será possível calcular a área 


F ace ao vasto emprego da fórmula de Herão na resolu- 


Herão 


de um triângulo qualquer, dados seus três lados, a área de uma 10 REM "HERAO" 
gleba e ainda a área de desenho e/ou de terreno. 20 DIM L(3) 
É muito comum no meio rural a necessidade de se medi- 30 LET S=0 
rem glebas que foram aradas, gradeadas, sulcadas, plantadas, 40 PRINT "DIGITE O NUMERO DE T 
roçadas ou que receberam qualquer outro tipo de mecaniza- s 
ção agrícola. Como tais medidas destinam-se geralmente a RIANGULOS DESUA AREA 
efetuar o pagamento de serviços prestados, não requerem a ela- 50 INPUT N 
boração de plantas e nem compensam, economicamente, a 60 CLS 
utilização de certos instrumentos. São mensurações efetuadas 70 PRINT "DIGITE DENOMINADOR E 
com trena e balizas, dividindo-se a gleba em triângulos e to- SCALA OU ""O""SE NAO EXISTE" 


mando-se as dimensões de seus lados. Nesse caso, a área de 7 
cada triângulo pode ser facilmente calculada pela fórmula:de é cobaia D 
Herão em que, sendo S = área, p = semiperímetro, a, b, c = la- Do mm si má 


dos do triângulo, 1/2 = expoente, temos: 90 PRINT "DIGITE OS S DO 
1/2 I ". 
S=(p(p-a)(p-b)(p-c)) erre DE TO 3 
Muitas vezes solicita-se, no meio urbano, desenho e área de 120 INPUT L(I) 
lotes bastante irregulares. Aplicando-se o mesmo processo de 130 PRINT "L(";I;")=";L(I) 
medição, mas com maior rigorosidade, conseguem-se resulta- 140 NEXT I 
dos plenamente satisfatórios. 150 LET P=(L(1)+L(2)+L(3))/2 


Vejamos, então, como utilizar o programa. ss 
Após digitálo no seu micro, pressione a tecla RUN. A se- 160 LET SP=SQR (P*(P-L(1))*(P-L 





guir, forneça o número de triângulos de sua gleba, solicitado (2)) *(P-L(3))) 
pelo programa, bem como o denominador da escala ou zero, se 170 PRINT "AREA=";SP 
ela não existir. A partir daí, atenda às demais solicitações do 180 IF D>0 THEN PRINT "AREA TER 
programa, de acordo com os dados que você já introduziu. RENO=";SP*D*D 
Para cálculo de outra gleba, pressione novamente a tecla RUN. 181 PRINT 
190 LET S=S+SP 
200 NEXT J 
Laci Mota Alves é coca é em bs cap Universi- 210 PRINT 
dade Federal de Vii — MG. E pósgrad em Ciência Florestal e " =" 
pero Di e e | eratmntesr na Esnóio Supiarior de 220 PRINT “AREA TOTAL= ;S 
Agronomia de Paraguaçu Paulista — ESAPP. Além disso, presta servi- 230 IF D>0 THEN PRINT "AREA TOT 
ços autônomos de Topografia, Conservação do Solo e outros de Enge- TERRENO=":S*D*D 
nharia Florestal desde 1975. ” ' 
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ME GARANTA 
SUA MS 


TODO MÊS! 


Se você deseja assinar MICRO SISTEMAS, preencha o 
cupom abaixo (ou uma xerox, caso você não queira 
cortar a revista): 


nome . 


empresa... 
profissão/cargo 
endereço para remessa... 


0 ES — estado 
Assinatura anual 

Micro Sistemas Cr$ 15.000,00 
[] Informática &' Administração Cr$ 10.000,00 
[] Micro Sistemas+Informática &Administração . Cr$ 22.000,0 


Preencha um cheque nominal à ATI Editora Ltda e envie 


para: 
Rua Visconde Silva, 25 — Rio de Janeiro — RJ — CEP 
22281 — tel: (021) 286-1797, 246-3839 e 266-0339. 

Al. Gabriel Monteiro da Silva, 1227 — São Pâaulo — SP — 
CEP 01441 — tel: (011) 853-3800. 

Seu recibo será enviado pelo correio. 


VOLTE AS AULAS COM MS! 


Em março, uma edição especial sobre Educação com vários 





VOCÊ QUER SER 
COLABORADOR 
DE MICRO SISTEMAS? 


Para entrar nesse programa, é 
só seguir as instruções: 

e Escreva um texto datilogra- 
fado explicando qual a utiliza- 
ção do seu programa, e junte 
exemplos de aplicação. Aten- 
ção: é imprescindível que a lis- 
tagem seja datilografada. Se 
for possível mande também, 
junto com a listagem datilo- 
grafada, uma fita cassete ou 
disquete com o programa; 


e Se for artigo, use a máqui- 


na de escrever em espaço dois 
e meio, com setenta toques 
por linha e trinta linhas por fo- 
lha. Caso haja necessidade de 
desenhos e ilustrações, deta- 
lhe-os o máximo possível; 

e Releia atentamente sua 
colaboração para micros ou 
calculadora, veja se não falta 
nenhuma informação (qual 
equipamento, em que configu- 
ração etc.), e remeta-a, em 
duas vias, para a equipe de 
MICRO SISTEMAS analisar; 

e Não se esqueça de mandar 
um breve currículo, seu nome, 
telefone e endereço completo. 


Envie para REDAÇÃO 
MICRO SISTEMAS, Rio ou 
São Paulo: Rua Visconde Sil- 
va, 25, Botafogo, CEP 22281, 
Rio de Janeiro — RJ; Alame- 
da Gabriel Monteiro da Silva, 
1227, Jardim Paulistano, CEP 
01441, São Paulo — SP, 


sistélicão 








programas para você aprender coisas novas e praticar velhos 


conhecimentos! 





e outros tantos 
especialmente 
escritos para 

o seu micro. 

Aqui vai 

também uma 
palinha sobre os 
artigos: 
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- RAIZ QUADRADA . HISTOGRAMA 
- ANIMALS, O INGLÊS DO MICRO 

«- TUTOR MATEMÁTICO 
«APRENDENDO FRAÇÕES 


“A inicialização 
do monitor 

do CP-500" e a 
segunda parte do 
artigo do prof. 
Antônio Costa, 
“Inteligência 
Artificial”, 






apresentando um 
jogo inteligente 
para a linha 
TRS-80. 


siste 






A HORA DE OPTAR POR UM MIGROGOMPUTADOR 
IQUE COM O MELHOR: 


SOFTWARE 
500 PROGRAMAS DISPONÍVEIS 


— Spetaculator (Visicalc) 
Telewriter 64 (Processador de textos) 
Médico /Leão 
(Controle de consultas e contabilidade 
simultaneamente) 
Orçamento (Ideal para Engenheiros) 
Envelope de pagamento 
(Calcula e imprime o envelope padrão) 
Contas a Pagar/Receber 


Controle de Estoque e ' 2 i 
(Acesso direto sobre cade tem) Utilizando a mais moderna tecnologia existente no momento, a Codimex criou e 


Topografia (Cálculo poligonal) está produzindo um computador privilegiado. Trata-se do CODIMEX 6809, compatível 
- Linguagem LOGO (para crianças) com o TRS 80 Color Computer, que gera até 9 cores, possui recursos sonoros e opera 

Composer (Transforma o CODIMEX - 6809 com unidade de disco flexível (5 1/4"") ou cassete. 

numa verdadeira orquestra). O 6809 é extremamente versátil em aplicações gráficas, capacitado a operar em alta 

Flex ou baixa resolução e incorpora uma série de instruções inexistentes em outros 

Dinacalc computadores. 


— Dinastar : A 
— Super Procstêr MS CODIMEX 6809 — vá conhecê-lo nos principais revendedores. 


200 JOGOS, ENTRE ELES ZAXXON (TRIDIMENSIONAL), XADREZ, 
TRAP, KING, DONKEY, BOLICHE, CONBELT, GOBBLER (PACMAN), 
CORRIDA DE CAVALOS, SPACE ASSAULT... 


PERIFÉRICOS 


O computador CODIMEX-6809 possui duas entradas analógicas, portas 
para RS-232 e gravador cassete; saida de vídeo; saída de expansão. As C O DI Ped E X 
entradas analógicas permitem a ligação direta de um par de “joysticks”, 


que facilitam a introdução de dados gráficos e criam maior flexibilidade computadores 
em jogos. Essas entradas podem ser usadas igualmente como converso- 
res analógico-digitais. A porta RS-232 torna possível a conexão da im- importação, Exportação e Indústria de Computadores Ltda. 
pressora ou modem. Os programas e dados são armazenados em fita Av. Wenceslau Escobar, 1549 - Vila Assunção - 

cassete comum por intermédio da saída/gravador. O sinal de video é Telefone (0512) 498446 CEP 90.000 - Porto Alegre (RS) 
compatível com qualquer TV colorida ou P&B através da antena. A uni- 

dade de disco permite acesso rápido a arquivos e programas, tornando a 

memória do computador virtualmente infinita 





Agora, na hora de escolher entre um 
microcomputador pessoal simples, de fácil 
manejo e um sofisticado microcomputador 
profissional, você pode ficar com os dois 

Porque chegou o novo CP 300 Prológica 

O novo CP 300 tem preço de 
microcomputador pequeno. Mas memória 
de microcomputador grande. 

Ele já nasceu com 64 


kbytes de memória 


interna com 
ria externa para até 
quase 1 megabyte 
E tem um teclado profissional, 
que dá ao CP 300 uma versatilidade incrível 
Ele pode ser utilizado com programas de 
fita cassete, da mesma maneira que com 


programas em disco. HH || 64H | 


O único na sua faixa que já 
nasce com 64 kbytes de memória. 


Pode ser E 
acoplado q uma Digg 
impressora. 





Na » 





lb para coleta de dados, 


Compatível com 
programas em fita 
cassete ou em disco. 






Pode ser ligado ao seu aparelho de TV, da 
mesma forma que no terminal de vídeo 
de uma grande empresa. 
Com o CP 300 você pode 
fazer conexões telefônicas 


se utilizar 
de uma 
impressora 
e ainda dispor de todos 
Os programas existentes 


Pode ser ligado 

a um televisor comum 

ou a um sofisticado 
terminal de vídeo. 


possibilidade de Permite para o CP 500 ou o 
expansão de Memó- eejetônica TRO-80 americano. E o que é melhor: 


é você estará apto a operar qualquer 

outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tem tantas possibilidades de 
expansão ou desempenho igual 

CP 300 Prológica 

Os outros não SER PROLOGICA 
fazem o que ele faz, BBB microcomputadores 
pelo preço que 288 
ele cobra. EH . 


VALORES NACIONAIS 





Solicite 
demonstração 
nos principais 
magazines. 
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A vendo nos boos cosas do ramo, lojos especializados de fotovideo-som e grondes mogozines em: ALAGOAS - Maceió, Palmeira dos Indios, AMAZONAS - Monous, BAHIA - Solvodor, CEARÁ - Forto 
lezo. DISTRITO FEDERAL - Brosílio, ESPÍRITO SANTO - Vitório, GOIAS - Goiônio, MATO GROSSO - Cuiabá, MINAS GERAIS - Belo Horizonte Divinópolis, ltajubo, Juiz de Foro, Poços de Coldos, São 
João Del Rei, Teófilo Otoni, Uberlôndio, Uberabo, Viçoso, PARAÍBA - Compino Grande, PARÁ - Belém, PARANÁ 

terói, Novo Friburgo 


Curitibo, Londrina, Maringó, PERNAMBUCO - Recife, RIO DE JANEIRO - Compos, Ni 
Petrópolis, Rezende, Rio de Joneiro, Volto Redondo, RIO GRANDE DO SUL 


nordo do Comp São João do Boo Visto, São Sebs do Gromo 
nou, Brusque. Florinógr s 


Bogé. Conoas, Caxias do Sul, Ijuí, Novo Hamburgo, Pelotas, Porto Alegre, Sont Anna do Livromen 
to, Sontiogo. Sonto Roso, São Leopoldo, RIO GRANDE DO NORTE - Notol, RONDÔNIA - Porto Velho, SÃO PAULO Araraquara, Assis, Avoré, Bauru, Birigui, Botucatu, Compinos, Catanduva, Fronco 
Guorulhos. ltu. Jocorei, Joú, Limeiro, Lins, Morílio, Mogi Guaçu, Mogi dos Cruzes, Ourinhos, Piracicobo, Pirassununga, Promissão, Rio Clorc 


São Corlos, São José do Rio Preto, São José dos Compos. St 


Ribeirão Preto, Santos, Santo Borb. d'Oeste, São Ber 
Se você não encontror este equipoment 


André, São Poulo, Sorocaobo, Suzano, Taubaté, SANTA CATARINA - Blume 


o suo cidode ligue poro (011) 800 - 255 8583 


tojoi. Joinville, SERGIPE - ArocojÚú 








